Set cn = New ADODB.Connection
    Set RS = New ADODB.Recordset
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "d:\vb\DB_Test\acd-vis-def.mdb"
        .Open
    End With
    With RS
        .Source = "SELECT NodeId AS Id FROM Nodes WHERE Usage=True"
        .ActiveConnection = cn
        .Open
    End With