Private Sub rsView_DAO(ByVal dbFilename As String, _
  ByVal dbTable As String)
 
  Dim Db As DAO.Database
  Dim oRecordset As DAO.Recordset
  Dim oField As DAO.Field
  Dim oItem As ListItem
 
' Ersteinmal brauche wir ein Recordset
  Set oRecordset = New ADODB.Recordset
  oRecordset.Open "SELECT * FROM " & dbTable, _
    oCon, adOpenForwardOnly, adLockReadOnly, 0