SoloCodigo

Hola, aquí te pongo un ejemplo de las muchas maneras que hay de conectarse a una Base de datos, por lo que te recomiendo que te leas lo que encuentres sobre el modelo de Objetos de Acceso a Datos (ADO):

    dim CadenadeConcexión as String
    Dim cn As ADODB.Connection
    Dim SQL As String
    Dim rs As New ADODB.Recordset
    Dim i As Integer
    Set cn = New ADODB.Connection
    CadenaConexion= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rutabdatos.mdb;Persist Security Info=False"
    cn.Open CadenaConexion
    SQL = "SELECT * FROM tabla "
    rs.Open SQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
    Do While Not rs.EOF
         'Tratamiento que quieras dar a los campos
         text1=rs.fields("nombrecampo")
         rs.MoveNext
    Loop
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing

Más o menos algo así

Hola, lo que te he puesto es la cadena de conexión que uso yo en un programa mío para conectar con Access XP, el proveedor es microsoft jet 4.0, y en data source solo tienes que poner la ruta de tu base de datos, lo demás, el objeto connection, el recordset es lo mismo para cualquier base de datos.
Un saludo