Dynamically building Where Condition

In my VB6.0 app, based on user selections from combo boxes I am trying to dynaically build a 'where' clause conditionally based on what is selected in the combo boxes (there are two of them).

I have verified that the fields 'cboCustomer.ItemData(cboCustomer.ListIndex)' and 'cboItem.ItemData(cboItem.ListIndex)' both contain numeric values if selected by the user.  The problem is that as I build the where clause, a double quote is appended at the end, which is incorrect.  I am not purposely putting it there but when I show the contents the where clause looks like:

"Where ClientID = 16"

based on my statements

    wkVal = cboCustomer.ItemData(cboCustomer.ListIndex)
    whereCond = whereCond & " ClientID = " & wkVal

I want it to look like:  "Where ClientID = " 16

How do I keep the double quote from moving where I put it (prior to the 16) to where the system puts it (after the 16)?

My full logic looks like this:


anyCond = False
whereCond = "WHERE"
myFilter = ""

  If cboCustomer.ListIndex > -1 Then
    If anyCond Then
      whereCond = whereCond & " AND "
      myFilter = myFilter & ", "
    End If
    wkVal = cboCustomer.ItemData(cboCustomer.ListIndex)
    whereCond = whereCond & " ClientID = " & wkVal
    myFilter = myFilter & "Customer: " & cboCustomer.Text
    anyCond = True
  End If

  If cboItem.ListIndex > -1 Then
    If anyCond Then
      whereCond = whereCond & " AND "
      myFilter = myFilter & ", "
    End If
    whereCond = whereCond & " ItemID = " & cboItem.ItemData(cboItem.ListIndex)
    myFilter = myFilter & "Item: " & cboItem.Text
    anyCond = True
  End If

  rs.Open "SELECT * FROM qryPriceSheet" & whereCond, cn