Try
Code:
sqlStr = "select EmpNo from tblMEmployee where EmpNo = '" & txbEmpNo.Text & "'"
myRecSet.Open sqlStr, MyConnObj, adOpenKeyset
Combo1.Clear
Do While Not myRecSet.EOF
Combo1.Additem myRecSet(0)
myRecSet.MoveNext
Loop
myRecSet.Close
Set myRecSet = Nothing
Please note I changed * to the name of the field. If all you are after is one field in your table there is no need, nor does it make any sense, to select ALL fields in your table. When writing a SELECT query, just list the fields that you actually need for that particular query.