Dim db as database
Dim rs as recordset
'
' Set to whatever
'
If not rs.EOF and not rs.BOF Then
rs.MoveFirst
cboText.Clear
Do
cboText.AddItem rs!Whateverfield
rs.Movenext
if rs.EOF Then Exit Do
Loop
cboText.ListIndex = 0
Else
' Whatever error or Message
End If

Hope it helps...am using vb5 sp 3