Hi,
Try This :
Code is easy for ListBox..
If you want To Poulate a Combo Only, Then Place a ListBox on the Form and Set it's property Visible = False
Dim str1 As String
RS.MoveFirst
List1.Clear
Combo1.Clear
Do While Not RS.EOF
str1 = RS("MyField") & ""
List1.Text = str1
If List1.SelCount = 0 Then
List1.AddItem str1
Combo1.AddItem str1
End If
RS.MoveNext
Loop
Regards
Veena