Sub ImportTables()
Dim strFilePath1 As String
Dim strFilePath2 As String
strFilePath1 = "C:\path\to\file1.txt"
strFilePath2 = "C:\path\to\file2.txt"
DoCmd.ImportText acTextDelimited, "Table1", strFilePath1, ";"
DoCmd.ImportText acTextDelimited, "Table2", strFilePath2, ";"
End Sub