Option Compare Database
Option Explicit
Dim DB As Database
Function Zbirna()
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim Imetabele(0 To 4) As String
Dim N As Integer
Dim I As Integer

DB.Execute "DELETE*FROM [Tbl_Zbirna]"
Set DB = CurrentDb
Imetabele(0) = "TblKombinacija"
Imetabele(1) = "Stroj"
Imetabele(2) = "Sklop"
Imetabele(3) = "Podskl"
Imetabele(4) = "Cvor"
Set Rs2 = DB.OpenRecordset("Tbl_Zbirna")
For I = 0 To 4
Set Rs1 = DB.OpenRecordset(Imetabele(I))
Do While Not Rs1.EOF
    Rs2.AddNew
    For N = 0 To 4
    Rs2.Fields(N) = Rs1.Fields(N)
    Next N
    Rs2.Update
Rs1.MoveNext
Loop
Next I
End Functi