Private Sub com_xml_Click()

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tblFirma")

'mySQL = "SELECT * FROM tblFirma"
'Set rs = db.OpenRecordset(mySQL)

Open "C:\Prodaja\RAC.XML" For Output As 1

Dim Tekst As String

Tekst = "<tns:Zaglavlje>"
Print #1, Tekst
Tekst = "<tns:IdPoruke>" & "f81d4fae-7dec-11d0-a765-00a0c91e6bf6" & "</tns:IdPoruke>"
Print #1, Tekst
Tekst = "<tns:DatumVrijeme>" & Now() & "</tns:DatumVrijeme>"
Print #1, Tekst
Tekst = "<tns:Zaglavlje>"
Print #1, Tekst
Tekst = "<tns:Racun>"
Print #1, Tekst
Tekst = "<tns:OIB>" & rs!OIB & "</tns:OIB>"
Print #1, Tekst
Tekst = "<tnsRacunZahtjev>" & Now() & "</tnsRacunZahtjev>"
Print #1, Tekst
Tekst = "<tnsFirma>" & rs!CompanyName & "</tnsFirma>"
Print #1, Tekst
Tekst = "<tnsNaselje>" & rs!PostBroj & ", " & rs!Mjesto & "</tnsNaselje>"
Print #1, Tekst


Close #1
End Sub