Public Sub cmdImport_Click()
	Dim db As DAO.Database
	Dim rst As DAO.Recordset
	Dim strFileName As String
	Dim strImportTable As String
	Set db = CurrentDb()
	Set rst = db.OpenRecordset("tblMyImportFiles")
	With rst
		If .RecordCount > 0 Then
			Do Until .EOF
				strFileName = ![fileName]
				strImportTable = ![importTable]
				DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
							strImportTable, strFileName, True
				.MoveNext
			Loop
		End If
		.Close
	End With
End Sub