Private Sub CommandButton1_Click()
Dim nextFile As String
  Dim Dir As String
  Dim File As String
  Dim Lista As String
  'sciezka do katalogu
  myDir = "C:\Bazy\Flaszki\"
  'jakich plikow szukamy
  myFile = "*.mdb"
  nextFile = VBA.Dir(Dir & File)
  Do Until Len(nextFile) = 0
  Lista = Lista & Dir & File & Chr(10)
  nextFile = VBA.Dir()
  Loop
  MsgBox "W katalogu " & Dir & " są następujące pliki:" & Chr(10) & Lista
'wyswietla liste plikow w katalogu
End Sub

Private Sub CommandButton1_Click()
Dim acApp As Access.Application
    Set acApp = New Access.Application
    acApp.OpenCurrentDatabase "c:\Bazy\BAZA_PRODUKCYJNA.mdb"
      
DoCmd.TransferDatabase acImport, "Microsoft Access", "c:\Bazy\BAZA_Z_TABELA.mdb", acTable, "Tabela", "Tabela", False
DoCmd.RunSQL "INSERT INTO Tabela SELECT Tabela1.* FROM Tabela1;"
DoCmd.DeleteObject acTable, "Tabela1"

acApp.CloseCurrentDatabase
End Sub

Private Sub CommandButton1_Click()
Dim acApp As Access.Application
    Set acApp = New Access.Application
    acApp.OpenCurrentDatabase "c:\Bazy\brzuch.accdb"
   
   
DoCmd.TransferDatabase acImport, "Microsoft Access", "c:\Bazy\butelka.mdb", acTable, "piwo", "piwo", False
acApp.CloseCurrentDatabase
End Sub