Private sub cmdPrintError_Click
  Dim curDB As Database
  Dim rs As Recordset
  Dim lSQL As String
  Dim retVal As Variant
    Open "C:\Database\txtValidate.txt" For Output As #1

    Print #1, "Company to Validate:" & " " & Me.txtCompany
    Print #1, ""
    Set curDB = CurrentDb
    lSQL = "SELECT qryValidate.[Company ID], qryValidate.[Employee
number]"lSQL = lSQL & " FROM qryValidate"
    lSQL = lSQL & " FROM qryValidate"
    lSQL = lSQL & " WHERE [Company ID] = " & Me.txtCompany & " AND ([Net
total cash] - [NetCheck]) >=" & 1 ")"
    Set rs = curDB.OpenRecordset(lSQL)

    If rs.RecordCount <> 0 Then
        rs.MoveLast
        rs.MoveFirst
        Print #1, "1)Record(s) not balance: " & rs.RecordCount & "/" &
DCount("[Company ID]", "qryValidate", "[Company ID] = " & Me.txtCompany &
"")
        Print #1, "CompanyID   EmployeeID"
    Else
        Print #1, "1)Record's not balance not found"
    End If
    Do While Not rs.EOF
        Print #1, rs.Fields("Company ID") & "        " &
rs.Fields("Employee number"),
        rs.MoveNext
    Loop
    Set rs = Nothing
    Print #1, ""
    Print #1, "Data inputer:"
    Print #1, "Date Time: " & Format(Date, "dd-mmm-yyyy") & "--" &
Format(Now, "hh:mm:ss AMPM")
    Set curDB = Nothing
    Close #1
    retVal = Shell("C:\Windows\write.exe C:\Database\txtValidate.txt", 1)
End sub