How do i setup a combo box to list entries when clicked

[Guest_imported]

I'm new to programming in VB6 and want to know how to enter the entries on a combo box when clicked.

 

[CrystalVisualBOracle]

Use the Combobox1.Additem command where Combobox1=the name of your combobox.

 

[RayMan]

Try this:

cmbEvent.Clear
SqlTxt = "SELECT * from EventMstr order by event_dt desc "
Set rstEventMstr = dbsFruit.OpenRecordset(SqlTxt, dbOpenDynaset)
If rstEventMstr.EOF Then
MsgBox "Event must be added before inventory "
rstEventMstr.Close
Exit Sub
End If
Do While Not rstEventMstr.EOF
With rstEventMstr
cmbEvent.AddItem !Event_Dt & " " & !event_desc
.MoveNext
End With
Loop
rstEventMstr.Close
cmbEvent.Text = cmbEvent.List(0)