Private Sub Gumb_Kopiraj_v_Tabeli_Click()
On Error GoTo Napaka

   Dim cn As ADODB.Connection
   Dim rs_o As ADODB.Recordset, rs_k As ADODB.Recordset

   Set cn = CurrentProject.Connection
   Set rs_o = New ADODB.Recordset
   Set rs_k = New ADODB.Recordset
   rs_o.Open "Mama_Vse", cn, adOpenStatic, adCmdTable
   rs_k.Open "Mama", cn, adOpenDynamic, adLockOptimistic

   Do Until rs_o.EOF
      rs_k.AddNew
      rs_k.Fields("ID") = rs_o.Fields("ID")
      rs_k.Fields("Ime") = rs_o.Fields("Ime")
      rs_k.Fields("Priimek") = rs_o.Fields("Priimek")
      rs_k.Fields("Datum rojstva") = rs_o.Fields("Datum rojstva")
      rs_k.Fields("Višina") = rs_o.Fields("Višina")
      rs_o.MoveNext
      rs_k.Update
   Loop
   rs_o.Close
   rs_k.Close
   Set rs_o = Nothing
   Set rs_k = Nothing

   Set rs_o = New ADODB.Recordset
   Set rs_k = New ADODB.Recordset
   rs_o.Open "Otrok_Vse", cn, adOpenStatic, adCmdTable
   rs_k.Open "Otrok", cn, adOpenDynamic, adLockOptimistic

   Do Until rs_o.EOF
      rs_k.AddNew
      rs_k.Fields("ID") = rs_o.Fields("ID")
      rs_k.Fields("Ime") = rs_o.Fields("Ime")
      rs_k.Fields("Priimek") = rs_o.Fields("Priimek")
      rs_k.Fields("Datum rojstva") = rs_o.Fields("Datum rojstva")
      rs_k.Fields("ID_Mama") = rs_o.Fields("ID_Mama")
      rs_k.Fields("ID_Ata") = rs_o.Fields("ID_Ata")
      rs_o.MoveNext
      rs_k.Update
   Loop

   rs_o.Close
   Set rs_o = Nothing
   rs_k.Close
   Set rs_k = Nothing
   cn.Close
   Set cn = Nothing

Ven: Exit Sub

Napaka:
    MsgBox Err.Description
    Resume Ven

End Sub