Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
       Dim strConn As String
 
       strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\lager.mdb;"
       'If using an Access 2000 mdb use "Microsoft.Jet.OLEDB.4.0"
 
       cn.CursorLocation = adUseClient
       cn.Open strConn
 
       rs.Open "SELECT Bezeichnung From CPU", _
                     cn, adOpenStatic, adLockOptimistic, adCmdText
 
       Set DBCombo1.DataSource = rs
       DBCombo1.DataField = "Bezeichnung"
       DBCombo1.Refresh