Public sql As String                  'SQL Statement
Public db_pfad As String              'Datenbankpfad
Public cn As ADODB.Connection         'Verbindung zur Datenbank
Public rs As New ADODB.Recordset      'Recordset für Datenbank Zugriff
Public rs1 As New ADODB.Recordset     'Recordset zum Datensatz einfügen
 
Sub Main()
 
    db_pfad = ""
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data" & _
      "Source=Microsoft Access-Datenbank;Initial Catalog=" & db_pfad
    cn.Open
 
    sql = "SELECT * FROM tabellenname"
    rs.Open sql, cn, adOpenKeyset
 
    While Not rs.EOF
        sql = "INSERT INTO tabellenname (spaltenname) VALUES ('" +  rs.Fields( _
          "spaltenname") + "')"
        rs1.Open sql, cn, adOpenKeyset  
        rs.MoveNext
    Wend
    rs.Close
 
End Sub