Aqui te dejo un Ejemplo de conexion y busqueda de datos hacia la BD NEPTUNO, que viene como ejemplo en el Office (access)
Imports System.Data.OleDb
Public Class Form1
Dim oConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Archivos de programaMicrosoft OfficeOffice10SamplesNeptuno.mdb")
Dim oAdaptador As OleDbDataAdapter
Dim dt As New 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)
oAdaptador.Fill(dt)
Me.DataGridView1.DataSource = dt
If dt.Rows.Count > 0 Then
Me.Text = dt.Rows(0).Item("NOMBRECATEGORÍA").ToString
Else
Me.Text = "Categoria no encontrada."
End If
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
Salu2.