[RESOLVED] Commas in Combobox problem

[Al42]

I just created a database and did what you did, but using ADO. I couldn't duplicate your results. The

Private Sub Form_Activate()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
  Set rs = New ADODB.Recordset
  rs.Open "Select * from Table1", cn
  Do While Not rs.EOF
    Combo1.AddItem (rs.Fields(0).Value) & "   (" & rs.Fields(1).Value & ")"
    rs.MoveNext
  Loop
  rs.Close
  Set rs = Nothing
  cn.Close
  Set cn = Nothing
  If Combo1.ListCount > 0 Then Combo1.ListIndex = 0

End Sub

[ChrisR873]

I don't think VB6 has that issue, which is why I was so confused. I am using MS Access 2002 to create my database app, and the data comes via DAO. But it didn't matter how the data came when populating the control, it did it no matter what. If you have access 2002 or 2000 try it there. Glad you looked into the issue tho. I did noticed when researching how to fix it before I posted that other people had the same issue, but none were pulling from a database and were able to fix it another way. My fix works and thats one problem out of the way.

~Chris