Ecco un semplice esempio di come mi connetto a un DB usando ADO.
Come vedi non è molto difficile è simile alla connessione in ASP


Dim DataConn As ADODB.Connection
Dim rsClienti As ADODB.Recordset

NomeDB = App.Path & "\dati\rubrica.mdb"

Set DataConn = New ADODB.Connection
Set rsClienti = New ADODB.Recordset

DataConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDB & ";Persist Security Info=False"

DataConn.Open


SQL = "SELECT * FROM Appuntamenti WHERE Nome='ivano'"

rsClienti.Open SQL, DataConn, 3, 3
If rsClienti.RecordCount > 0 Then
Do While Not rsClienti.EOF
List2.AddItem rsClienti("Nome")
List1.AddItem rsClienti("Cognome")
rsClienti.MoveNext
Loop
End If