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
Set DBCombo1.RowSource = rs
 
DBCombo1.DataField = "Bezeichnung"
DBCombo1.BoundColumn = "Bezeichnung"
DBCombo1.ListField = "Bezeichnung"
 
DBCombo1.Refresh

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)