Questo è il mio codice:

codice:
Imports System.Data.OleDb

Public Class Ricerca
    Dim Conn3 As OleDb.OleDbConnection   ' variabile per connessione
    Dim stringaconn3 As String           ' variabile dove inserire stringa di connessione
    Dim Cmd3 As OleDb.OleDbCommand        
    Dim Da3 As OleDb.OleDbDataAdapter
    Dim Ds3 As DataSet                   
    Dim Bs3 As BindingSource
    Dim Cb3 As OleDb.OleDbCommandBuilder
    Dim Dbr As OleDb.OleDbDataReader
    Dim stringasql3 As String


    Private Sub Ricerca_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Inserisci i parametri di ricerca", vbOKOnly, "Informazione")
        TxtNRicerca.Text = ""
        TxtCRicerca.Text = ""
        TxtTRicerca.Text = ""
        PnlBR.Enabled = False
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Me.Hide()
        Form1.Hide()
        Form1.Enabled = True
    End Sub

    Private Sub LoadDBR()
        stringaconn3 = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Percorso
        Conn3 = New OleDb.OleDbConnection(stringaconn3)
        Cmd3 = New OleDb.OleDbCommand("SELECT * FROM Socio WHERE (Nome LIKE '" & Me.TxtNRicerca.Text & "*') OR (Cognome LIKE '" & Me.TxtCRicerca.Text & "*')", Conn3)
        MsgBox("SELECT * FROM Socio WHERE (Nome LIKE '" & Me.TxtNRicerca.Text & "*') OR (Cognome LIKE '" & Me.TxtCRicerca.Text & "*')")
        Da3 = New OleDb.OleDbDataAdapter(Cmd3)
        Cb3 = New OleDb.OleDbCommandBuilder(Da3)
        Ds3 = New DataSet
    End Sub

    Private Sub DatiR()

        TxtNRicerca.Text = DirectCast(Bs3.Current, DataRowView).Item("Nome").ToString
        TxtCRicerca.Text = DirectCast(Bs3.Current, DataRowView).Item("Cognome").ToString
        TxtTRicerca.Text = DirectCast(Bs3.Current, DataRowView).Item("Telefono").ToString
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        PnlBR.Enabled = True
        ToolStripButton1.Enabled = False
        GrpIRicerca.Enabled = False
        LoadDBR()
        Da3.Fill(Ds3, "Socio")
        Bs3 = New BindingSource(Ds3, "Socio")
        DatiR()

    End Sub
Mi serve per effettuare una ricerca io passo il parametro, e poi faccio una SELECT su quei paraemtri il risultato la carico in un DataSEt nulla di più logico, è la stessa procedura che faccio per caricare l'intera tabella ma purtroppo quando la compilazione arriva sulla prima riga della Sub DatiR mi da il seguente errore:

Riferimento a un oggetto non impostato su un'istanza di oggetto.

Non capisco il motivo ....
Grazie dell'aiuto