I just created a database and did what you did, but using ADO. I couldn't duplicate your results. TheCode: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![]()




Reply With Quote