Function Zapisi(ImeT As String, IDK As String)
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL1 As String
Dim SQL2  As String

SQL1 = "SELECT * FROM Indeks"
SQL2 = "SELECT * FROM " & ImeT _
 & " WHERE IDstroja='" & IDK & "' Or IDstroja In (SELECT IDDijela FROM Indeks) " _
  & "Or IDstroja In (SELECT ID FROM Proces WHERE Klasa=5)"
Set Rs1 = Db.OpenRecordset(SQL1)
Set Rs2 = Db.OpenRecordset(SQL2)
    Do While Not Rs2.EOF
    Rs1.AddNew
    Rs1!IDstroja = Rs2!IDstroja
    Rs1!IDdijela = Rs2!IDdijela
    Rs1!kat = Rs2!kat
    Rs1!KOM = Rs2!KOM
    Rs1.Update
    Rs2.MoveNext
    Loop
Rs1.Close
Rs2.Close
End Function