Private Sub Form_Load()
 
Set CnKostenträger = New ADODB.Connection
With CnKostenträger
.Provider = "Microsoft.Jet.OLEDB.3.51"
.ConnectionString = "Data Source=c:\PowerMill.mdb"
.Open
End With
 
Set RsKostenträger = New ADODB.Recordset
RsKostenträger.Open Source:="Nummer", ActiveConnection:=CnKostenträger
 
Dim F As ADODB.Field
For Each F In RsKostenträger.Fields
 
  Me.lstKostenträger.AddItem F.Value
 
Next F
 
End Sub