Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sQry As String
 
    Set db = Workspaces(0).OpenDatabase("C:\Test\DB1.MDB")
 
    sQry = "SELECT * FROM Adressen"
 
    Set rs = db.OpenRecordset(sQry, dbOpenDynaset)

    Dim oConn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    Dim sSQL As String
 
    With oConn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = "C:\Test\DB1.MDB"
        .Properties("Persist Security Info") = False
        .Open
    End With
 
    sSQL = "SELECT * FROM Adressen"
 
    oRs.Open sSQL, oConn, adOpenDynamic, adLockOptimistic