... Trim$(str$(Int(NumCurrency)))PhanChan = Space(15 - Len(PhanChan)) + PhanChanNganTy = Val(Left(PhanChan, 3))Ty = Val(Mid$(PhanChan, 4, 3))Trieu = Val(Mid$(PhanChan, 7, 3))Ngan = Val(Mid$(PhanChan, 10, 3))Dong = Val(Mid$(PhanChan, ... Ten As StringDim DonViTien As String, DonViLe As StringDim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As IntegerDim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As IntegerDonViTien ... bỏ SQL 6.5. Cài mới SQL 2000. Sau đó dùng chức năng Attach Database (mở SQL Enterprise Manager, chọn máy cài SQL, chọn Database/All Task/Attach Database) để nạp các dữ liệu đã chép lưu trước đây...