Private Sub Command0_Click()
DoCmd.Hourglass True
    exportXML
DoCmd.Hourglass False
MsgBox "Gorovo" & vbCr & "Kraj" & "Konjec" & vbCr & " Nema kraja ovom sreanju"
End Sub