Private Sub Command0_Click()
        
    Dim db As Database
    Dim rs As Recordset
    Dim MyString As String
    Dim x As Integer
    
    On Error Resume Next
    
    For x = 1 To CADHrList.ListCount
    CADHrList.RemoveItem 0
    Next x
    
    Set db = CurrentDb
    
    MyString = "SELECT * FROM DisplayCADHoursQ WHERE FirstName='" & CurrentUsername & "' And WorkDate > #" & DateFrom & "# And WorkDate < #" & DateTo & "#"
    
    
    Set rs = db.OpenRecordset(MyString, dbOpenDynaset)
    
    CADHrList.AddItem "WorkLogID;WorkDate;TDJobNo;WorkType;ProjectName;CustomerName;CustNo;SPID;Specifier;Hours"
  
    While Not rs.EOF
        If IsNull(DateFrom) Or IsNull(DateTo) Then
'datefrom = the start date user required from displaycadhoursquery
'dateto = the end date user required from displaycadhoursquery
            MsgBox "No Range Date entered"
            Exit Sub
        End If

        CADHrList.AddItem rs!WorkLogID & ";" & rs!WorkDate & ";" & rs!TDJobNo & ";" & rs!WorkType & ";" & rs!ProjectName & ";" & rs!CustomerName & ";" & rs!AccountNo & ";" & rs!SalesRepID & ";" & rs!FN & ";" & rs!HoursWork

       rs.MoveNext

    Wend
    

    
    rs.Close
    db.Close
    
    Set rs = Nothing
    Set db = Nothing
    

    
    
End Sub


*** The problem happen always in the customername ***

---

Reply from Richard Rost:

Hmmm... it looks fine to me. Perhaps it's a NULL problem. Try enclosing all of your rs!FieldNames inside of NZ() functions, like this:

NZ(rs!CustomerName,"")

That should change them over to zero-length strings (or even try a single SPACE). I'd have to see the database or set it up myself to tell you anything further... unless someone else has any other ideas. Your code looks OK to me though.