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("c:\haha\mdb")
 Set db_dummy = OpenDatabase("C:\blabla\dummy.mdb")
 
 SQL = "Select * from zvs"
 Set rs = db.OpenRecordset(SQL)
 
 If rs.RecordCount > 0 Then
 
  Do While Not rs.EOF
   PROJEKTNR = rs("PROJEKTNR")
   Z_NUMMER = rs("Z_NUMMER")
 
   SQL = "Insert into zvs (PROJEKTNR, Z_NUMMER) values (PROJEKTNR,Z_NUMMER)"
   db_dummy.Execute SQL
   rs.MoveNext
  Loop
 
 End If
 
End Sub