conectar a una base de datos

[Saga]

Este es un ejemplo muy sencillo, te recomiendo que investigues cada metodo por separado en la ayuda que viene incluida con el VB, solo escribe el nombre del metodo seleccionalo y dale F1, la yuda esta compelta y contiene ejemplos.

'Define variables
Dim WS As Workspace
Dim DB As Database
Dim tmpUsuarios As Recordset
Dim Ruta_DB As String

Ruta_DB = App.Path & "\DATOS.mdb"

'Abre la base de datos
Set WS = DBEngine.Workspaces(0)
Set DB = WS.OpenDatabase(Ruta_DB)

'Crea una consulta
criterio = "SELECT * FROM usuarios WHERE [tipo] = 1"
Set tmpUsuarios = GDB.OpenRecordset(criterio)



Saludos