Datenzugriff mit DAO oder ADO

Public Sub Daten_uebernehmen()

  Dim cnn As New ADODB.Connection
  Dim rs0 As New ADODB.Recordset
  Dim strSQL As String

  Set cnn = CurrentProject.Connection
  strSQL = "SELECT * FROM tblDaten;"
  rs0.Open strSQL, cnn, adOpenDynamic, adLockOptimistic

  Do While Not rs0.EOF
    'Hier sind die Aktionen einzutragen
    'die ausgeführt werden sollen
    rs0.MoveNext
  Loop

  rs0.Close
  Set rs0 = Nothing
  cnn.Close
  Set cnn = Nothing

End Sub

Public Sub Daten_uebernehmen()
  Dim db As DAO.Database 
  Dim rs As DAO.Recordset 
  Dim strSQL As String 
 
  Set db = CurrentDb 
  strSQL = "SELECT * FROM tblTabellenname WHERE ID=1 ORDER BY fldName" 
  Set rs = db.OpenRecordset(strSQL)

  Do Until rs.EOF 
    'Hier sind die Aktionen einzutragen
    'die ausgeführt werden sollen
    rs.MoveNext 
  Loop

  rs.AddNew          'Neuer Datensatz anlegen
  rs.Fields(0) = ""  'einem Feld einen Wert zuweisen
  rs.Update          'Datensatz speichern

  rs.Close
  Set rs = Nothing
  db.Close
  Set db = Nothing
End Sub

  Dim tbl As DAO.TableDef
  Dim dbo As DAO.Database
  Dim fld As DAO.Field
  Dim idx As DAO.Index
  
  Set dbo = CurrentDb
  Set tbl = dbo.CreateTableDef("tblDaten")
  With tbl
    '*** ID-Feld mit AutoWert erzeugen
    Set fld = .CreateField("ID", dbLong)
    fld.Attributes = fld.Attributes + dbAutoIncrField
    .Fields.Append fld
    
    '*** Primary-Key zuordnen
    Set idx = .CreateIndex("PrimaryKey")
    idx.Fields.Append idx.CreateField("ID")
    idx.Primary = True
    .Indexes.Append idx
    
    '*** Weitere Felder anlegen
    .Fields.Append .CreateField("iFeld", dbInteger)
    .Fields.Append .CreateField("tFeld", dbText)
    .Fields.Append .CreateField("dFeld", dbDate)
  End With
  dbo.TableDefs.Append tbl

  Set idx = Nothing
  Set fld = Nothing
  Set tbl = Nothing
  Set dbo = Nothing