Author  

Language  

Operating Systems  

Public Sub LoadCombo()
    Dim MyDatabase As DAO.Database 'Use this method if you are also using ADO
    Dim MyRecordset As DAO.Recordset ' Use it anyways save an error or Type Mismatch
    Dim MySql As String

    MySql = "SELECT DISTINCT [Item] FROM [Table] WHERE [Item]='" & strVar & "'"

    Set MyDatabase = DBengine.Workspaces(0).OpenDatabase("C:\MyData.mdb")
    Set MyRecordset = MyDatabase.OpenRecordset(MySql, DbOpenSnapShot)
    Do While Not MyRecordset.EOF
        If Not IsNull(MyRecordset("Item")) Then
            Combo1.Add MyRecordset("Item")
        End If
        MyRecordset.MoveNext
    Loop
    '* Clean Up
    MyRecordset.Close
    MyDatabase.Close
    Set MyRecordset = Nothing
    Set MyDatabase = Nothing
    '* Load the first record in combo
    If Combo1.ListCount > 0 Then
        Combo1.ListIndex = 0
    End If
End Sub