Author  

Language  

Operating Systems  

Public Const strJetProvider = "Provider=Microsoft.Jet.OLEDB.3.51;DataSource=C:\myaccess.mdb"

'* Place on a form a combo box and a command button

Public sub Command1_Click()

    Dim MyConn As New ADODB.Connection
    Dim MyRst As New ADODB.Recordset
    Dim strTemp As String


    With MyConn
        .ConnectionString = strJetProvider
        .Open
    End With
    With Me
        .Combo1.Clear
    End With
    MyRst.Open "SELECT * FROM SQL", MyConn, adLockReadOnly, adLockOptimistic, adCmdText

    If MyRst.RecordCount <= 0 Then
        MyRst.Close
        MyConn.Close
        Set MyRst = Nothing
        Set MyConn = Nothing
        strTemp = MsgBox("Sorry No Records are located?", vbOKOnly + vbCritical, "No Records Found")
        Exit Sub
    End If
    Do While Not MyRst.EOF
        If Not IsNull(MyRst("Field")) Then
            Combo1.AddItem MyRst("Field")
        End If
        MyRst.MoveNext
    Loop
    MyRst.Close
    If Combo1.ListCount > 0 Then
        Combo1.ListIndex = 0
    End If

End Sub