Function TabeleUpis(ImeTabele)
Dim Db As Database
Dim Rs As Recordset
Dim I As Integer, FieldsCount As Integer, Start As Integer
Dim Temp As String

Set Db = CurrentDb
Set Rs = Db.OpenRecordset(ImeTabele)
FieldsCount = Rs.Fields.Count - 1
'MsgBox Rs.Fields(0).Name
'Exit Function
If ImeTabele <> "ZAGLAVLJE" Then
Start = 1
End If
Do While Not Rs.EOF
If ImeTabele <> "ZAGLAVLJE" Then
    Temp = "<STAVKA>"
    Print #1, Temp
End If
    For I = Start To FieldsCount - Start
    If Format$(Rs.Fields(I).Value) <> "" Then
    Temp = "<" & Rs.Fields(I).Name & ">" & Rs.Fields(I).Value & "</" & Rs.Fields(I).Name & ">"
    Else
    Temp = "<" & Rs.Fields(I).Name & "/>"
    End If
    Print #1, Temp
    Next I
If ImeTabele <> "ZAGLAVLJE" Then
    Temp = "</STAVKA>"
    Print #1, Temp
End If
Rs.MoveNext
Loop
End Function