... .EmpName = rsGeneral(EmpName) .EmpAddress = rsGeneral(EmpAddress) .EmpCity = rsGeneral(EmpCity)End WithPut FileHandle, , ExpGeneralrsGeneral.MoveNextLooprsGeneral.CloseSet rsGeneral = NothingClose ... Err.Description, , ErrorEnd Sub &apos ;Import Text vào Ms -Access Public Sub Import_ TextFile_2_Table() On Error GoTo LocalErrorHandler Dim dbCompany As Database Dim rsGeneral As Recordset Dim FullName ... InStr(1, ImportRecord, Delimiter, 1) - 1)) EmpName = Trim(Mid(ImportRecord, 7, 10)) EmpAddress = Trim(Mid(ImportRecord, 18, 30)) EmpCity = Trim(Mid(ImportRecord, 49)) rsGeneral.AddNew rsGeneral(EmpNo)...