Option Explicit
 
Dim gcn As New ADODB.Connection
 
Private Sub cboItem_Click()
Dim rs As New ADODB.Recordset
 
With rs
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .CursorType = adOpenDynamic
    .Open "select itemname from [item] where itemid='" & cboItem.List(cboItem.ListIndex) & "'", gcn
 
    txtname.Text = IIf(.RecordCount = 0, "", IIf(IsNull(!itemname), "", !itemname))
End With
 
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End Sub
 
Private Sub Form_Load()
On Error GoTo err1
 
gcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sample.mdb;" & _
                    "Persist Security Info=False"
gcn.Open
 
Call PopulateCombo
 
Exit Sub
 
err1:
    Err.Clear
    MsgBox "Could not open database.", vbCritical, "Error"
    If gcn.State = adStateOpen Then gcn.Close
    Set gcn = Nothing
End Sub
 
Private Sub PopulateCombo()
Dim rs As New ADODB.Recordset
 
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.CursorType = adOpenDynamic
rs.Open "select itemid from [item] order by itemid", gcn
 
With cboItem
    .Clear
    .AddItem "Select an Item Id"
    .ListIndex = 0
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        While Not rs.EOF()
            .AddItem rs!itemid
            rs.MoveNext
        Wend
        .ListIndex = 1
    End If
End With
 
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If gcn.State = adStateOpen Then gcn.Close
Set gcn = Nothing
 
End
End Sub