Display all records in a combo box

[bigleroy]

I am using a bound combo box to display records. However, only the first record of the recordset is being displayed. How do I display all records?



Set cnnProvType = New ADODB.Connection
cnnProvType.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CustSvc;Data Source=POKEMON"
cnnProvType.Open

Set recProvType = New ADODB.Recordset
recProvType.Open "SELECT DISTINCT VendorType FROM VendorType " _
& "ORDER BY VendorType", cnnProvType, adOpenStatic, _
adLockOptimistic, adCmdText

Set dbcProviderType.DataSource = recProvType
Set dbcProviderType.RowSource = recProvType
dbcProviderType.DataField = "VendorType"
dbcProviderType.ListField = "VendorType"
dbcProviderType.BoundColumn = "VendorType"

Thanks,
Leroy

 

[Kendel]

Try this and let me know if it work.

With recProvType
.MoveFirst
Do until .EOF
Combo1.AddItem !FieldName
.MoveNext
Loop
End with

 

[bigleroy]

Kendel,

The type of combo box I was using (OLE DB DataCombo Box) does not have the AddItem Method. I switched to a normal combobox and now it works correctly.

Thanks,
Leroy