In den VBA-Editor wechseln, klar ....
 
Dort unter Extras/Verweise einen Verweis auf die Microsoft DAO 3.5x _
  ObjectLibrary setzen ... klar.
 
Wir fügen ein Modul! in das Projekt ein ... auch klar.
 
Wir denken nicht, wir proggen jetzt :-)
 
Private DB1 As Database
Private DB2 As Database
Private Rs1 As Recordset
Private Rs2 As Recordset
 
'Das Auto_Open Makro erzeugt auf der Oberfläche von Excel eine neue Commandbar
'und setzt hierauf eine Schaltfläche. Mit der Schaltfläche wird die 
' Konvertierungsaktion
'ausgelöst:
Private Sub Auto_Open()   'Das Makro wird ausgeführt, wenn die 
' Excel-Arbeitsmappe geöffnet wird!
            Dim myCmdBar As CommandBar
            Dim myButton As CommandBarButton
 
            Set myCmdBar = Application.CommandBars.Add(Name:="Excel2Access", _
              Temporary:=True)
             Set myButton = myCmdBar.Controls.Add(msoControlButton)
 
             With myButton
                     .BuiltInFace = True
                    .Style = msoButtonIconAndCaption
                    .Caption = "SOKOL-Menü"
                    .TooltipText = "Konvertiert die Tabelle in eine Access" & _
                      "Tabelle"
                    .FaceId = 548
                    .OnAction = "Excel2Access"
                    .Visible = True
             End With
 
             myCmdBar.Visible = True
End Sub
 
Private Sub Excel2Access() 
       ..... 'hier den Tipp umsetzen.

'QueryTable erzeugen:
 
Dim ConnString As String
Dim SQL As String
Dim myQuery As QueryTable
 
'DBName ist bekannt.
 
ConnString = "ODBC; DSN = MS Access 97-Datenbank; UID=admin; DBQ="+DBName
SQL = "SELECT * From Tabellename"
 
Set myQuery = ActiveSheet.QueryTables.Add(ConnString,ActiveSheet.Range( _
  "A1"),SQL)
myQuery.Refresh