[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