...
Aqui te dejo un ejemplo, de busqueda en la tabla CATEGORIA de la BD NEPTUNO, la que viene como ejemplo en el Office.
Agregas: Formulario, TextBox, DataGridView, y luego:
Imports System.Data.OleDb
Public Class Form1
Dim oConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Office\Office10\Samples\Neptuno.mdb")
Dim oAdaptador As OleDbDataAdapter
Dim dt As DataTable
Private Sub busca(ByVal strCriterio As String)
Dim strSQL As String
strSQL = "SELECT * FROM CATEGORÍAS WHERE IDCATEGORÍA = " & strCriterio
oAdaptador = New OleDbDataAdapter(strSQL, oConexion)
dt = New DataTable
oAdaptador.Fill(dt)
Me.DataGridView1.DataSource = dt
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
busca(Me.TextBox1.Text)
End If
End Sub
End Class
Espero te sea util.
