Hi

I usually use a Sheridan Data Combo Box that has a datafieldlist property where you enter the field that will populate the combo box. I no longer have the facility to use Sheridan Data Combo, so I am using a normal combo box, but it does not have this property, can you please tell me where this is as it is populating the combo box with only the first record of the dataset. I have also tried a while loop with add items to the combo box, but this is also not working either.

Thanks in advance

Louisa

Hi Louisa...!
Try making a recordset with the data that you need from database... then do a Until EOF ... loop to feel the combo box using the additem method
Do Until rsRecordset.EOF
cboBox.AddItem rsRecordset!fildname
rsRecordset.MoveNext
Loop

Louisa,

I don't think a regular combo box has this property. I have populated combo box before with something like this.

Dim adoCon as ADODB.Connection
Dim adoRst as ADODB.Recordset
Dim strConnect

'Open a DB connection
set adoCon = New ADODB.Connection
strConnect "sample connection string"
adoCon.open

'Open a recordset
set adoRst = New ADODB.Recordset
adoRst.open "My SQL Query Or Table",adoCon

'check to make sure the recordset has information
If not adoRst.eof and not adoRst.bof then
   'loop through the recordset
   Do until adoRst.eof
      'add the item
      combo1.addItem adoRst.fields.item("myField").value
      'move top the next item
      adoRst.MoveNext
   Loop
End If

Set adorst = nothing
Set adoCon = Nothing