DataGrid problem

[lolapoo]

i'm writing a programme in vb.net that enables me to do a research in a data table using a single parameter i call this function using an other one and then i click on a button to start the search but nothing shows in the data grid and an error says that it's impossible to create a infant field of my client table this the code i used

Private Sub BtnsearchClient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnsearchClient.Click
Dim NameCli As String
NameCli = TxtsearchClient.Text
RechercheClient(NameCli)
DgResultatsearch.SetDataBinding(DataSetResultatsearch, " TClient ")


End Sub

 

[jmcilhinney]

Maybe you should show us that RechercheClient method. Please post code snippets inside formatting tags for readability too, e.g.

[xcode=vb]your code here[/xcode]

 

[lolapoo]

     Private Function Search(ByVal Dataadapter As OleDb.OleDbDataAdapter, ByVal NomTable As String, ByVal champs As String,ByVal parametres As OleDb.OleDbParameter()) As DataTable
        Dim separation As String
        Dim LastError As String
        If NameTable.IndexOf("WHERE") > 1 Then
            separation = "AND"
        Else
            separation = "WHERE"
        End If
        Try
            Search = New DataTable(NameTable)
            MsgBox("SEARCH IN THE TABLE:" & NameTable)
            Dataadapter.SelectCommand.CommandText = _
         " SELECT" + champs + "From" + NameTable
            Dataadapter.SelectCommand.Parameters.Clear()
            Dim Parametre As OleDb.OleDbParameter
            For Each Parametre In parametres
                If Parametre.Value <> Nothing Then
                    MsgBox("Param?tre: " & Parametre.ParameterName)
                    Dataadapter.SelectCommand.CommandText = _
                   Dataadapter.SelectCommand.CommandText + _
                   separation + Parametre.ParameterName + " = ?"
                    Dataadapter.SelectCommand.Parameters.Add(Parametre)
                    separation = "And"
                End If
            Next
            DataSetResultatsearch = New DataSet("DataSetResultatsearch")
            DataSetResultatsearch.Tables.Add(Search)
            Dataadapter.Fill(Search)
            LastError = ""
        Catch except As Exception
            Search= Nothing
             LastError = except.Message
        End Try
    End Function


    Public Function RechercheClient(ByVal NameCli As String) As DataTable
        RechercheClient = Search(DataAdapterclient, " TClient", _
        " NumCli, NameCli, AdrCli, CityCli,TelCli", _
        New OleDb.OleDbParameter() {New System.Data.OleDb.OleDbParameter("NameCli", NameCli)})

    End Function

Private Sub BtnsearchClient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnsearchClient.Click
Dim NameCli As String
NameCli = TxtsearchClient.Text
RechercheClient(NameCli)
DgResultatsearch.SetDataBinding(DataSetResultatsearch, " TClient ")
End Sub

here is the entire code the function search using a parameter and the RechercheClient function tha calls search and Button code
and i have declared Dim DataSetResultatsearch As DataSet as a globale variable