Private Sub Form_Load()
Data1.Recordsource = "SELECT DISTINCT <Field> FROM <TableName>" 'Filter Fields with a unique Name
Data1.Refresh ' Refresh The Table
While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset("Field") 'Field on SELECT
Data1.Recordset.MoveNext ' View all Field Content
Wend
End Sub

'Note U can use (ListBox or ComboBox)
'U can also code it on CLICK Event and KEYPRESS Event