Visual Basic - Conectar con Base de Datos Acces

Lo primero que hay que hacer es añadir la referencia Microsoft ADO.

Ahora, conectamos con las base de datos.

Set BaseDatos = Workspaces(0).OpenDatabase("RutadelaBD\bd.mdb", False, False)

Cuando conectamos, abrimos un recorset con la consulta que queremos realizar.

SQL = "SELECT * FROM Clientes"

Set Rs = BaseDatos.OpenRecordset(SQL, dbOpenSnapshot)

Luego imprimimos los resultados

Msgbox "Nombre: "+ Rs!Nombre

Si la consulta devuelve mas de una fila, para pasar de un registro a otro utilizamos, Rs.MoveNext

Un ejemplo sería:

while not Rs.EOF
combo1.addItem Rs!Nombre
Rs.MoveNext
end while

El while not Rs.EOF significa, Mientras no sea el final del RecordSet