Dim rs2
Dim db As Database
Set Tekst = New Stream
Tekst.Open
Tekst.Position = 0
Tekst.Charset = "UTF-8"
Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
    Set db = Nothing
Tekst.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
 Tekst.Close