Conexión a una bd access 2007

En el siguiente código abro una conexión a SQL Server, m tu lo deseas a una de Access, en www.connectionstrings.com encunetras la cadena correcta para abrir una base de datos de access y la reemplazas en este código
 Dim oCnn As New OleDbConnection ' Objeto de conexion a la base de datos
Dim daDatos As New OleDbDataAdapter ' Objeto Adaptador para leer datos de la Base de datos
Dim cmdExec As New OleDbCommand ' objeto comando para ejecutar sentencias sql
Dim dtDatos As New DataTable ' datatable para recibir los datos de la base de datos
Dim sbQuery As New StringBuilder ' StringBuilder para armar cadenas
Try
oCnn.ConnectionString = "Provider=SQLNCLI10;Server=ralvarado;Database=MiBD;Uid=sa; Pwd=XXX;"
oCnn.Open()
cmdExec = oCnn.CreateCommand
cmdExec.Connection = oCnn
SbQuery. Append("SELECT Consecutivo ")
SbQuery. Append(", IdentificacionPersona ")
SbQuery. Append(", TipoPersona ")
SbQuery. Append(", Grupo ")
SbQuery. Append(", PrimerNombre ")
SbQuery. Append(", PrimerApellido ")
SbQuery. Append(", SegundoApellido ")
SbQuery. Append(", Sexo ")
SbQuery. Append(", Profesion ")
SbQuery. Append(", Direccion1 ")
SbQuery. Append(", Direccion2 ")
SbQuery. Append(", TelFijo1 ")
SbQuery. Append(", TelFijo2 ")
SbQuery. Append(", TelMovil ")
SbQuery. Append(", PaginaWeb ")
SbQuery. Append(", ZonaPostal ")
SbQuery. Append(", Fax ")
SbQuery. Append(", Email1 ")
SbQuery. Append(", Email2 ")
SbQuery. Append(", FechaNacimiento ")
SbQuery. Append(" FROM Persona ")
cmdExec.CommandText = sbQuery.ToString
daDatos = New OleDbDataAdapter(cmdExec)
daDatos.Fill(dtDatos)
Catch ex As Exception
MessageBox.Show("excepcion: " & ex.Message, "Mostrando Reporte")
End Try
-----------------------------------------
Lógicamente debes cambiar los nombres de tus campos y el de tu tabla en la sentencia Select para ubicar los datos.