Aquí va un ejemplo. Espero que te sirva!

Public Class Form1
Dim Proveedor As String = "Microsoft.Jet.OLEDB.4.0"
'Motor de base de datos
Dim Archivo As String
Dim CadenaConexion As New System.Data.OleDb.OleDbConnectionStringBuilder
'Objeto para generar cadenas de conexion
Dim DataAdapter1 As OleDb.OleDbDataAdapter
'objeto de enlace a Bases de datos
Dim DataSet1 As DataSet
'base de datos
Dim DataTable1 As DataTable
'tabla
Dim SQL1 As String
Dim TextoAbuscar as String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Archivo = "C:\Mis documentos\BasedeDatos.mdb"
'se establece la ruta de acceso y archivo a utilizar
CadenaConexion("Provider") = Proveedor
' Se establece el proovedor
CadenaConexion("Data Source") = Archivo
' Se establece el archivo
TextoAbuscar = textBox1.text
SQL1 = "select campos from tabla1 where campo1 like '%" & TextoAbuscar & "%'"
'se establece el código SQL para consultas
'-------------
Using Conexion As New OleDb.OleDbConnection(CadenaConexion.ConnectionStr ing)
'se genera la conexion a la base de datos mediante la cadena de conexion generada en CadenaConexion
Dim Comando As New OleDb.OleDbCommand(SQL1)
' se establece la consulta

Dim Adapter1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(Comando.CommandText, Conexion.ConnectionString)
'se enlaza Adapter1 con la base de datos (Consulta -SQL-, Conexion -cadena de conexion-)
Dim DataSet1 As DataSet = New DataSet
'se crea objeto DataSet (contenedor de la base de datos)
Dim DataTable1 As DataTable = DataSet1.Tables.Add("tabla1")
'se crea objeto DataTable (contenedor de la tabla elegida) que pertenece al DataSet

Adapter1.Fill(DataSet1)
' se rellena el DataSet
Adapter1.Fill(DataTable1)
' se rellena el DataTable
DataGridView1.DataSource = DataTable1
' se rellena el DataGridView con los datos de la tabla
End Using 'se cierra la conexion
'--------------

End Sub
End Class