Private sub cmdExport_Click() Dim DB As Database Dim rs As Recordset Dim txt As String Dim strFile As String strFile = CurrentProject.Path & "\" & "zaposlenici.csv" Set DB = CurrentDb Set rs = DB.OpenRecordset("zaposlenici") Open strFile For Output Shared As #1 'txt = "ime;prezime;ocena" 'Print #1, txt Do While Not rs.EOF If rs.Fields(3) = "NA ODREDENO" Then txtStatus = "0" Else txtStatus = "1" End If txt = Chr(34) & rs.Fields(0) & Chr(34) & "," & _ Chr(34) & rs.Fields(1) & " " & rs.Fields(2) & Chr(34) & "," & _ Chr(34) & txtStatus & Chr(34) Print #1, txt rs.MoveNext Loop rs.Close Close #1 End Sub