[VB 2008] SELECT su DB Access non funziona

[VRD]

salve, è da poco che utilizzo VB 2008, devo fare un applicazione che interroga un Db.mdb dove si fa una select mi restituisca i dati che sono in due tabelle, eseguendo il codice mi da errore........

Private Sub SvolgiQuery(ByVal f As String, ByVal p As String)
        'dichiaro le variabili per passargli i valori f e p
        Dim Foglio As String = f
        Dim part As String = p

        'inizializziamo una nuova istanza DataSet
        objDataSet = New DataSet()

        'dichiaro la query da eseguire 
        Dim objDataAdapter1 As New OleDbDataAdapter("SELECT * FROM dati where FOGLIO=" & Foglio & " and NUMERO=" & part, objConnection)

        'compiliamo l'ogetto DataSet con i dati
qui--> objDataAdapter1.Fill(objDataSet)

        'impostiamo l'ogetto DataView
        objDataView = New DataView(objDataSet.Tables("dati"))

        'impostare il nostro oggetto CurrencyManager all'ogetto DataView
        objCurrencyManager = CType(Me.BindingContext(objDataView), CurrencyManager)
        ListaDeiRecordCercati.DataSource = objDataView

    End Sub

Mi data qualche consiglio.........????