Sub TabellenErstellungsAbfrageADO()
    Dim cn As New ADODB.Connection
    Dim strSQL As String
    Dim DbNameQuelle As String
    Dim DbNameZiel As String
    DbNameQuelle = "D:\DATEN\QuellDB.mdb"
    DbNameZiel = "D:\DATEN\ZielDB.mdb"
    cn.Open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & DbNameQuelle
    strSQL = "SELECT * INTO TabellenNameNeu IN '" & DbNameZiel & "' " & _
             "FROM AbfrageName;"
    cn.Execute strSQL
    cn.Close
End Sub