Hola oscar, para hacer una simple consulta como la que muestras puedes usar por ejemplo un reader, por lo que el codigo quedaría mas o menos asi:
Código:
Dim variable as string = "valor" 'variable de consulta
Dim FileSource as string = "C:\Temp\BD.MDB" 'ruta al archivo access
Dim ConsultaSQL As String = _
"Select * From nombre_tabla Where nombre_campo ='" & variable & "'"
Dim conn As OleDbConnection = _
New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileSource & ";User Id=admin;Password=;")
Dim com As OleDbCommand = New OleDbCommand(ConsultaSQL, conn)
conn.Open()
Dim lector As OleDbDataReader
lector = com.ExecuteReader
lector.Read()
If lector.HasRows Then
Me.TextBox1.Text = lector.Item(0).ToString
End If
lector.Close()
conn.Close()
si la consulta tienes varias columnas, puedes recorrerlas cambiando el numero del index en lector.Item(0).ToString, siempre empezando por cero la primer columna. si la consulta es de actualización o eliminación, en lugar de un reader, simplemente ejecutas el comando: com.ExecuteNonQuery()
Espero te sirva de ejemplo para empezar a entender cosas, Saludos