I am trying to build a customized ListBox.  I have just two fields, FirstName and LastName..
I keep getting an error 13 Type Mismatch when I check the CheckBox labeled ShowLastName.  It
references the "CustomerList.ColumnWidth = CW" in my Private Sub RequeryList()

Details

Private Sub RequeryList().
    Dim CW As String, RS As String, CC As Long
    CC = 1
    CW = "0"";"
    RS = "SELECT DataID"
    If ShowFirstName Then
        CC = CC + 1
        CW = CW & "0.7"";"
        RS = RS & ", FirstName"
    End If
    If ShowLastName Then
        CC = CC + 1
        CW = CW & "0.7"";"
        RS = RS & ", LastName"
    End If
    RS = RS & " FROM Data'
    CustomerList.ColumnCount = CC
    CustomerList.ColumnWidth = CW **Here is what it references.**
    CustomerList.RowSource = RS
End Sub
Private Sub Form_Load()    
     RequeryList
End Sub
Private Sub ShhowLastName_AfterUpdate()
     RequeryList
End Sub
Private Sub ShowLastName_AfterUpdate()  
     RequeryList      
End Sub

Any thoughts'
Tim Schmidt