Xuân Thanh > 07-07-12, 03:43 PM
For Each varFile In .SelectedItems Me.txtTapTin = varFile Next
Private Sub cmdImport_Click() Call ImExAc(Me.txtTapTin, "tblKhachHang", "DanhSach") End Sub