Public Sub db_operation()
 Dim db As Database
 Dim rs As Recordset
 
 Dim db_dummy As Database
 Dim rs_dummy As Database
 
 Set db = OpenDatabase("G:\TRK\ausf\Lehrling\Datenbank\DBTest\db_zvs.mdb")
 Set db_dummy = OpenDatabase("G:\TRK\ausf\Lehrling\Datenbank\DBTest\dummy.mdb")
 
 SQL = "Select * from zvs"
 Set rs = db.OpenRecordset(SQL)
 
 Set rs_dummy = db_dummy.OpenRecordset("zvs")
 
 If rs.RecordCount > 0 Then
 
    Do While Not rs.EOF
        s_dummy.AddNew
        rs_dummy!PROJEKTNR = rs!PROJEKTNR
        rs_dummy!Z_NUMMER = rs!Z_NUMMER
        rs_dummy.Update
        rs.MoveNext
  Loop
 
 End If
 
End Sub