Récupérer le résultat d'un select dans un datagridview

Private Sub txtRecherche_TextChanged(sender As Object, e As EventArgs) Handles txtRecherche.TextChanged
dtgResult.Rows.Clear()
infocon.mareq = "Select MatCli, NomCli, PrenomCli from CLIENT where NomCli LIKE '" & Trim(txtRecherche.Text) & "*'"

Try
infocon.proc_connexion()
If infocon.rdr.Read Then
dtgResult.Rows.Add(infocon.rdr(0), infocon.rdr(1), infocon.rdr(2))
While infocon.rdr.Read
dtgResult.Rows.Add(infocon.rdr(0), infocon.rdr(1), infocon.rdr(2))
End While
End If
Catch ex As Exception

End Try
End Sub

Public Class InfoConnexion

    Public cnn As SqlConnection
    Private macon As New OleDbConnection 'Déclare une variable macon de type oledb connexion et instanciée(New)
    Public rdr As OleDbDataReader
    Private strcon As String
    Private cmd As OleDbCommand
    Public mareq As String
    Friend meq As String

    'procédure permetant de faire la connexion et d'exécuter les commandes sql
    Public Sub proc_connexion()
        strcon = connect 'permet la connexion à la base de donnée
        macon = New OleDbConnection(strcon)
        macon.Open()
        cmd = New OleDbCommand(mareq, macon)
        rdr = cmd.ExecuteReader()
    End Sub

    Public Sub pro_deconnexion()
        rdr.Close()
        macon.Close()
    End Sub

    Public Function la_table() As DataTable
        strcon = connect 'permet la connexion à la bd
        macon = New OleDbConnection(strcon)
        macon.Open()
        cmd = New OleDbCommand(mareq, macon)
        ' Dim dt As New DataSet
        Dim ds As DataTable = New DataTable
        Dim dat As New OleDbDataAdapter(cmd)
        dat.Fill(ds)
        'ds = dt.Tables(0)
        macon.Close()
        Return (ds)
    End Function

End Class

dtgResult.Rows.clear()

If infocon.rdr.Read Then dtgResult.Rows.Add(infocon.rdr(0), infocon.rdr(1), infocon.rdr(2)) While infocon.rdr.Read dtgResult.Rows.Add(infocon.rdr(0), infocon.rdr(1), infocon.rdr(2)) End While End If