'Ziel DB anlegen mit DB-Kennwort
Set aDB = New ADOX.Catalog
aDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=ziel.mbd; " & _
"Jet OLEDB.Database Password=123;" '** hier natürlich mit :
Set aDB = Nothing
 
'Quell DB öffnen mit mdw-File
Set dDB = New adodb.Connection
With dDB
            .CursorLocation = adUseClient
            .Mode = adModeShareDenyNone
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Data Source") = "quelle.mdb"
            .Properties("Jet OLEDB.Database Password") = "123" '** hier 
            ' natürlich mit :
            .Properties("Jet OLEDB.System database") = "rights.mdw" '** hier 
            ' natürlich mit :
            .Properties("User ID") = "user"
            .Properties("Password") = ""
            .Open
End With
 
'Tabbelle mit Inhalt kopieren
oDB.Execute "SELECT * INTO [ziel.mdb;pwd=123].Tabelle FROM Tabelle

'öffnen der neuen DB
Set dDB = New adodb.Connection
 With dDB
        .CursorLocation = adUseClient
        .Mode = adModeShareExclusive
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = ziel.mdb
        .Properties("Jet OLEDB.Database Password") = "123" '** hier natürlich 
        ' mit :
        .Open
End With
 
Set RS = New adodb.Recordset
With RS
        .ActiveConnection = dDB
        .CursorLocation = adUseClient
        .CursorType = adOpenForwardOnly
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM Tabelle"
        .Open    '**** HIER FEHLER : Datensatz konnte nicht gelesen werden. 
        ' Keine Leseberechtigung auf Tabelle
End With

------------
mosch