Private Sub Polecenie18_Click()

DoCmd.OpenQuery "eksport_muzyka", acViewNormal, acEdit
Dim mytext
Dim fileName As String
mytext = DLookup("[eksport]", "[Muzyka]", "[klucz]=" & Forms![MUZYKA-EKSPORT-POST]![Tekst16])
fileName = "C:\Documents and Settings\Administrator\Pulpit\POSTY\MUZYKA\MUZYKA_" & Forms![MUZYKA-EKSPORT-POST]![Tekst19] & ".mpsp"

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(fileName, True, Unicode)
a.WriteLine (mytext)
a.Close

End Sub