Sub transfer()
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim P As String
P = Sheet5.[a2].Value
Set db = OpenDatabase([P]) 'Pfadanpassen
Set rst = db.OpenRecordset("Import")
With rst
.AddNew
!User = ActiveSheet.Range("B2")
!Date = ActiveSheet.Range("C2")
'usw
End With
MsgBox ("Successfully exportet to " & P)
'ActiveWorkbook.Close
End Sub