• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Fill ComboBox with values from database

Fill ComboBox with values from database

Fill ComboBox with values from database

Rate Fill ComboBox with values from database

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

On Error GoTo err
    cbo.Clear
    Dim aRec As New adodb.Recordset
    aRec.Open sqlString, aCon
    fillCombo = True
    Do While Not aRec.EOF
        cbo.AddItem aRec(strField)
        aRec.MoveNext
    Loop
    aRec.Close
    Set aRec = Nothing
Exit Function
err:
    fillCombo = False
    MsgBox err.Description
End Function