Create a recordset with an SQL SELECT query and load your combos from the results. Assuming you are using ADO code to connect to your database, and example would beVB Code:
Dim sSQL As String sSQL = "SELECT fieldname FROM tablename " Set rs = New ADODB.Recordset rs.Open sSQL, ConnectionObject Do While Not rs.EOF Combo6.Additem rs.Fields.Item("fieldname").Value rs.MovedNext Loop rs.Close Set rs = Nothing




Reply With Quote