将vb转换为c＃时出错 [英] I got an error while converting vb to c#

问题描述

我从vb.net转换为c＃.net

  CONVERSION  错误： 代码 可以 不   已转换。 详细信息： 
 
   -    line   1   col   9： 无效  NonModuleDeclaration  
 
 请 检查   任何 <    原始 代码 和 尝试 再次。

我没有那么多of在vb.net中的nowledge。请你更正代码。



我用这个链接从vb转换为c＃

http://converter.telerik.com/ [ ^ ]



我的代码是



< pre lang =css> 私有 Sub UpSqlSvr（）

20 屏幕。 MousePointer = vbHourglass
Dim SQL As String
昏暗 strConAccess As String
Dim con_Access As New ADODB 。连接

'accountdata 。 mdb
30 cmdBar 。标题 = 正在更新 accountdata .mdb
40 如果 不 con_Access Nothing 然后 设置 con_Access = Nothing
50 strConAccess = Provider = Microsoft。 Jet 。 OLEDB 。< span class =code-leadattribute> 4 .0;数据源=& Ph & accountdata .mdb;持久安全 Info = False
60 con_Access 。 ConnectionString = strConAccess
70 con_Access 。 Open
80 SQL = SELECT * INTO [ ODBC;驱动程序= SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[ClientAc] FROM [ClientAc]
90 con_Access 。执行 SQL
100 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PW​​D =& mPwd & ;]。[ClientBankAc ] FROM [ClientBankAc]
110 con_Access 。执行 SQL
120 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERV ER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GL] FROM [GL]
130 con_Access 。执行 SQL
140 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; ; DATABASE =& DataFile & ; UID =& mUser & ; PW​​D =& mPwd & ;]。[GL1] FROM [GL1]
150 con_Access 。执行 SQL
160 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser < span class =code-leadattribute>& ; PWD =& mPwd & ;]。[GLAGE] FROM [GLAGE]
170 con_Access 。执行 SQL
180 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGE1] FROM [GLAGE1]
190 con_Access 。执行 SQL
200 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PW​​D =& mPwd & ;]。[GLAGE1CR ] FROM [GLAGE1CR]
210 con_Access 。执行 SQL
220 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGE1DR] FROM [GLAGE1DR]
230 con_Access 。执行 SQL
240 SQL = SELECT * INTO [ODBC;驱动程序= SQL Server; SERVER =& mServer < span class =code-leadattribute>& ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGE1undo] FROM [GLAGE1undo]
250 con_Access 。执行 SQL
260 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGEtrsf] FROM [GLAGEtrsf]
270 con_Acce ss 。执行 SQL
280 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLbakGst] FROM [GlbakGst]
290 con_Access 。执行 SQL
300 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =< span class =code-leadattribute>& DataFile & ; UID = & mUser & ; PW​​D =& mPwd & ;]。[GLDEPT] FROM [GLDEPT]
310 con_Access 。执行 SQL
320 SQL = SELECT * INTO [ ODBC;驱动程序= SQL Server; SERVER =& mServer & ; DATABASE =& Dat aFile & ; UID =& mUser & ; PW​​D =& mPwd & ;]。[GLDEPT2] FROM [GLDEPT2]
330 con_Access 。执行 SQL
340 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& < span class =code-leadattribute> mUser & ; PWD =& mPwd & ;]。[GLFIN] FROM [GLFIN]
350 con_Access 。执行 SQL
360 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& ; mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PW​​D =& mPwd & ;]。[GLHEAD] < span class =code-leadattribute> FROM [GLHEAD]
370 con_Access 。执行 SQL
380 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =< span class =code-leadattribute>& mUser & ; PWD = & mPwd & ; ]。[GLHEAD1] FROM [GLHEAD1]
390 con_Access 。执行 SQL
400 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLpro1] FROM [GLpro1]
410 con_Access 。执行 SQL
420 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PW​​D =& mPwd & ;]。[Gltmp] FROM [Gltmp ]
430 con_Access 。执行 SQL
440 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& ; mPwd & ;]。[GLundo] FROM [Glundo]
450 con_Access 。执行 SQL
460 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =< span class =code-leadattribute>& mPwd & ;]。 [GSTAC] FROM [GSTAC]
470 con_Access 。执行 SQL
480 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER = & mServer & ;数据库=& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[gstpro] FROM [gstpro]
490 con_Access 。执行 SQL
500 SQL = SELECT * INTO [ODBC ; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PW​​D =& mPwd & ;]。[INFACE] FROM [INFACE]
510 con_Access 。执行 SQL
520 SQL = \"SELECT * INTO [ ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[JournalListing] FROM [JournalListing]\"
530 con_Access.Execute SQL
540 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[JournalType] FROM [JournalType]\"
550 con_Access.Execute SQL
560 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[Ledger] FROM [Ledger]\"
570 con_Access.Execute SQL
580 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[LedgerGstSales] FROM [LedgerGstSales]\"
590 con_Access.Execute SQL
600 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[Password] FROM [Password]\"
610 con_Access.< span class=\"code-leadattribute\">Execute SQL
620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tbbak] FROM [tbbak]\"
630 con_Access.Execute SQL
640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tbbaksum] FROM [tbbaksum]\"
650 con_Access.Execute SQL
660 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TClisting] FROM [TClisting]\"
670 con_Access.Execute SQL
680 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TDlisting] FROM [TDlisting]\"
690 con_Access.Execute SQL
700 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[test] FROM [test]\"
710 con_Access.Execute SQL
720 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TOClisting] FROM [TOClisting]\"
730 con_Access.Execute SQL
740 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TODlisting] FROM [TODlisting]\"
750 con_Access.Execute SQL
760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TrialBalance] FROM [TrialBalance]\"
770 con_Access.Execute SQL
780 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TrsfLedger] FROM [TrsfLedger]\"
790 con_Access.Execute SQL
800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Serve r;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[Vcontrol] FROM [Vcontrol]\"
810 con_Access.Execute SQL

'AH.mdb
820 cmdBar.Caption = \"Updating AH.mdb\"
830 If Not con_Access Is Nothing Then Set con_Access = Nothing
840 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\AH.mdb;Persist Security Info=False\"
850 con_Access.ConnectionString = strConAccess
860 con_Access.Open
870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[ACTYPE] FROM [ACTYPE]\"
880 con_Access.Execute SQL
890 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AH] FROM [AH]\"
900 con_Access.Execute SQL
910 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GSTIF] FROM [GSTIF]\"
920 con_Access.Execute SQL
930 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GstLink] FROM [GstLink]\"
940 con_Access.Execute SQL

'AR.mdb
950 cmdBar.Caption = \"Updating AR.mdb\"
960 If Not con_Acc ess Is Nothing Then Set con_Access = Nothing
970 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"AR.mdb;Persist Security Info=False\"
980 con_Access .ConnectionString = strConAccess
990 con_Access.Open
1000 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AR] FROM [AR]\"
1010 con_Access.Execute SQL
1020 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[ARAPL] FROM [ARAPL]\"
1030 con_Access.Execute SQL

'ARTEMP.mdb
'AuditTrail.mdb
1040 cmdBar.Caption = \"Updating AuditTrail.mdb\"
1050 If Not con_Access Is Nothing Then Set con_Access = Nothing
1060 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Sou rce=\" & Ph & \"\AuditTrail.mdb;Persist Security Info=False\"
1070 con_Access.ConnectionString = strConAccess
1080 con_Access.Open
1090 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailBP] FROM [AuditTrailBP]\"
1100 con_Access.Execute SQL
1110 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailBR] FROM [AuditTrailBR]\"
1120 con_Access.Execute SQL
1130 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailCS] FROM [AuditTrailCS]\"
1140 con_Access.Execute SQL
1150 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailGL] FROM [AuditTrailGL]\"
1160 con_Access.Execute SQL
1170 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailGRN] FROM [AuditTrailGRN]\"
1180 con_Access.Execute SQL
1190 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailINV] FROM [AuditTrailINV]\"
1200 con_Access.Execute SQL
1210 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailPJ] FROM [AuditTrailPJ]\"
1220 con_Access.Execute SQL
1230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailSJ] FROM [AuditTrailSJ]\"
1240 con_Access.Execute SQL
1250 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & ; \";].[AuditTrailSTK] FROM [AuditTrailSTK]\"
1260 con_Access.Execute SQL

'AuditTrail2.mdb
1270 cmdBar.Caption = \"Updating AuditTrail2.mdb\"
1280 If Not con_Access Is Nothing Then Set con_Access = Nothing
1290 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\AuditTrail2.mdb;Persist Security Info=False\"
1300 con_Access.ConnectionString = strConAccess
1310 con_Access.Open
1320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailCNP] FROM [AuditTrailCNP]\"
1330 con_Access.Execute SQL
1340 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailCNS] FROM [AuditTrailCNS]\"
1350 con_Access.Execute SQL
1360 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";D ATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailCO] FROM [AuditTrailCO]\"
1370 con_Access.Execute SQL
1380 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailDO] FROM [AuditTrailDO]\"
1390 con_Access.Execute SQL
1400 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailPO] FROM [AuditTrailPO]\"
1410 con_Access.Execute SQL
1420 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailPR] FROM [AuditTrailPR]\"
1430 con_Access.Execute SQL
1440 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & ; \";PWD=\" & mPwd & \";].[AuditTrailQUOT] FROM [AuditTrailQUOT]\"
1450 con_Access.Execute SQL
1460 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile < span class=\"code-leadattribute\">& \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailSR] FROM [AuditTrailSR]\"
1470 con_Access.Execute SQL

'AuditTrail3.mdb
1480 cmdBar.Caption = \"Updating AuditTrail3.mdb\"
1490 If Not con_Access Is Nothing Then Set con_Access = Nothing
1500 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\AuditTrail3.mdb;Persist Security Info=False\"
1510 con_Access.ConnectionString = strConAccess
1520 con_Access.Open
1530 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailDNP] FROM [AuditTrailDNP]\"
1540 con_Access.Execute SQL
1550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER= \" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailDNS] FROM [AuditTrailDNS]\"
1560 con_Access.Execute SQL
'AuditTrailAF.mdb
1570 cmdBar.Caption = \"Updating AuditTrailIAF.mdb\"
1580 If Not con_Access Is Nothing Then Set con_Access = Nothing
1590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\AuditTrailIAF.mdb;Persist Security Info=False\"
1600 con_Access.ConnectionString = strConAccess
1610 con_Access.Open
1620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailIAF] FROM [AuditTrailIAF]\"
1630 con_Access.Execute SQL
1640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailIAFap] FROM [AuditTrailIAFap]\"
1650 con_Access.Execute SQL
1660 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailIAFar] FROM [AuditTrailIAFar]\"
1670 con_Access.Execute SQL

'BANKAC.mdb
1680 cmdBar.Caption = \"Updating BANKAC.mdb\"
1690 If Not con_Access Is Not hing Then Set con_Access = Nothing
1700 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\BANKAC.mdb;Persist Security Info=False\"
1710 con_Access.ConnectionString = strConAccess
1720 con_Access.Open
1730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BANKAC] FROM [BANKAC]\"
1740 con_Access.Execute SQL

'BILLOFCOMPONENT.mdb
1750 cmdBar.Caption = \"Updating BILLOFCOMPONENT.mdb\"
1760 If Not con_Access Is Nothing Then Set con_Access = Nothing
1770 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\BILLOFCOMPONENT.mdb;Persist Security Info=False\"
1780 con_Access.ConnectionStr ing = strConAccess
1790 con_Access.Open
1800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser &am p; \";PWD=\" & mPwd & \";].[BILLOFCOMPONENT] FROM [BILLOFCOMPONENT]\"
1810 con_Access.Execute SQL

'BILLOFMATERIAL.mdb
1820 cmdBar.Caption = \"Updating BILLOFMATERIAL.mdb\"
1830 If No t con_Access Is Nothing Then Set con_Access = Nothing
1840 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\BILLOFMATERIAL.mdb;Persist Security Info=False\"
1850 con_Access.ConnectionString = strConAccess
1860 con_Access.Open
1870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & < span class=\"code-leadattribute\">mUser & \";PWD=\" & mPwd & \";].[BILLOFMATERIAL] FROM [BILLOFMATERIAL]\"
1880 con_Access.Execute SQL


'Br.mdb
1890 cmdBar.Caption = \"Updating BR.mdb\"
1900 If Not con_Access Is Nothing Then Set con_Access = Nothing
1910 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Br.mdb;Persist Security Info=False\"
1920 con_Access.ConnectionString = strConAccess
1930 con_Access.Open
1940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID= \" & mUser & \";PWD=\" & mPwd & \";].[BR] FROM [BR]\"
1950 con_Access.Execute SQL
1960 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BRDATEHEADER] FROM [BRDATEHEADER]\"
1970 con_Access.Execute SQL
1980 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BRos] FROM [BRos]\"
1990 con_Access.Execute SQL

'BRAND.mdb
2000 cmdBar.Caption = \"Updating BRAND.mdb\"
2010 If Not con_Access Is Nothing Then Set con_Access = Nothing
2020 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\BRAND.mdb;Persist Security Info=False\"
2030 con_Access.ConnectionString = strConAccess
2040 con_Access.Open
2050 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BRAND] FROM [BRAND]\"
2060 con_Access.Execute SQL
2070 < span class=\"code-leadattribute\">SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[MODEL] FROM [MODEL]\"
2080 con _Access.Execute SQL

'Budget.mdb
2090 cmdBar.Caption = \"Updating BUDGET.mdb\"
2100 If Not con_Access Is Nothing Then Set con_Access = Nothing
2110 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Budget.mdb;Persist Security Info=False\"
2120 con_Access.ConnectionString = strConAccess
2130 con_Access.Open
2140 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[Budget] FROM [Budget]\"
2150 con_Access.Execute SQL

'CASHBILL.mdb
2160 cmdBar.Caption = \"Updating CASHBILL.mdb\"
2170 If Not con_Access Is Nothing Then Set con_Access = Nothing
2180 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CASHBILL.mdb;Persist Security Info=False\"
2190 con_Access.ConnectionString = strConAccess
2200 con_Access.Open
2210 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbINVOICE] FROM [INVOICE]\"
2220 con_Access.Execute SQL
2230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbINVOICEDETAILS] FROM [INVOICEDETAILS]\"
2240 con_Access.Execute SQL

'CASHBILLtmp.mdb
2250 cmdBar.Caption = \"Updating CASHBILLTEMP.mdb\"
2260 If Not con_Access Is Nothing Then Set con_Access = Nothing
2270 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CASHBILLtmp.mdb;Persist Security Info=False\"
2280 con_Access.ConnectionString = strConAccess
2290 con_Access.Open
2300 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbtINVOICE] FROM [INVOICE]\"
2310 con_Access.Execute SQL
2320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataF ile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbtINVOICEDETAILS] FROM [INVOICEDETAILS]\"
2330 con_Access.Execute SQL

'CATEGORY.mdb
2340 cmdBar.Caption = \"Updating CATEGORY.mdb\"
2350 If Not con_Access Is Nothing Then Set con_Access = Nothing
2360 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CATEGORY.mdb;Persist Security Info=False\"
2370 con_Access.ConnectionString = strConAccess
2380 con_Access.Open
2390 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CATEGORY] FROM [CATEGORY]\"
2400 con_Access.Execute SQL

'CATEGORYSUPER.mdb
2410 cmdBar.Caption = < span class=\"code-leadattribute\">\"Updating CATEGORYSUPER.mdb\"
2420 If Not con_Access Is Nothing Then Set con_Access = Nothing
2430 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CATEGORYSUPER.mdb;Persist Security Info=False\"
2440 con_Access.ConnectionString = strConAccess
2450 con_Access.Open
2460 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CATEGORY1] FROM [CATEGORY1]\"
2470 con_Access.Execute SQL
2480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CATEGORY2] FROM [CATEGORY2]\"
2490 con_Access.Execute SQL

'Cbws.< span class=\"code-leadattribute\">mdb
2500 cmdBar.Caption = \"Updating Cbws.mdb\"
2510 If Not con_Access Is Nothing Then Set con_Access = Nothing
2520 strConAccess = \" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Cbws.mdb;Persist Security Info=False\"
2530 con_Access.ConnectionString = strConAccess
2540 con_Access.Open
2550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbwINVOICE] FROM [INVOICE]\"
2560 con_Access.Execute SQL
2570 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbwINVOICEDETAILS] FROM [INVOICEDETAILS]\"
258 0 con_Access.Execute SQL

'CN.mdb
2590 cmdBar.Caption = \"Updating CN.mdb\"
2600 If Not con_Access Is Nothing Then Set con_Access = Nothing
2610 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CN.mdb;Persist Security Info=False\"
2620 con_Access.ConnectionString = strConAccess
2630 con_Access.Open
2640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CN] FROM [CN]\"
2650 con_Access.Execute SQL

'COLOR.mdb
2660 cmdBar.Caption = \"Updating COLOUR.mdb\"
2670 If Not con_Access Is Nothing Then Set con_Acc ess = Nothing
2680 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\COLOR.mdb;Persist Security Info=False\"
2690 con_Access.ConnectionString = strConAccess
2700 con_Access.Open
2710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[COLOR] FROM [COLOR]\"
2720 con_Access.Execute SQL
2730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SIZE] FROM [SIZE]\"
2740 con_Access.Execute SQL

'comment.mdb
2750 cmdBar.Caption = \"Updating comment.mdb\"
2760 If Not con_Access Is Nothing Then Set con_Access = Nothing
2770 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\comment.mdb;Persist Security Info=False\"
2780 con_Access.ConnectionSt ring = strConAccess
2790 con_Access.Open
2800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser &a mp; \";PWD=\" & mPwd & \";].[comment] FROM [comment]\"
2810 con_Access.Execute SQL

'CONSGSTOCK.mdb
2820 cmdBar.Caption = \"Updating CONSGSTOCK.mdb\"
2830 If Not con_Access Is Nothing Then Set con_Access = Nothing
2840 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CONSGSTOCK.mdb;Persist Security Info=False\"
2850 con_Access .ConnectionString = strConAccess
2860 con_Access.Open
2870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CONSGSTOCK] FROM [CONSGSTOCK]\"
2880 con_Access.Execute SQL

'CusLibLabel.mdb
2890 cmdBar.Caption = \"Updating CusLibLabel.mdb\"
2900 If Not con_Access Is Nothing Then Set con_Access = Nothing
2910 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CusLibLabel.mdb;Persist Security Info=False\"
2920 con_Access.ConnectionString = strConAccess
2930 con_Access.Open
2940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cusLabel] FROM [Label]\"
2950 con_Access.Execute SQL

'CustomerContact.mdb
2960 cmdBar.Caption = \"Updating CustomerContact.mdb\"
2970 If Not con_Access Is Nothing Then Set con_Access = Nothing
2980 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CustomerContact.mdb;Persist Security Info=False\"
2990 con_Access.ConnectionString = strConAccess
3000 con_Access.Open
3010 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CustomerContact] FROM [CustomerContact]\"
3020 con_Access.Execute SQL

'CustomerGROUP.mdb
3030 cmdBar.Caption = \"Updating CustomerGROUP.mdb\"
3040 If Not con_Access Is Nothing Then Set con_Access = Nothing
3050 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CustomerGROUP.mdb;Persist Security Info=False\"
3060 con_Access.ConnectionString = strConAccess
3070 con_Access.Open
3080 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CustomerGroup] FROM [CustomerGroup]\"
3090 con_Access.Execute SQL

'CUSTOMERPRICE.mdb
3100 cmdBar.Caption = \"Updating CUSTOMERPRICE.mdb\"
3110 If Not con_Access Is Nothing Then Set con_Access = Nothing
3120 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CUSTOMERPRICE.mdb;Persist Security Info=False\"
3130 con_Access.ConnectionString = strConAccess
3140 con_Access.Open
3150 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer < span class=\"code-leadattribute\">& \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CUSTOMERPRICE] FROM [CUSTOMERPRICE]\"
3160 con_Access.Execute SQL

'DBGRID.mdb
3170 cmdBar.Caption = \"Updating DBGRID.mdb\"
3180 If Not con_Access Is Nothing Then Set con_Access = Nothing
3190 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\" & Ph & \"\DBGRID.mdb;Persist Security Info=False\"
3200 con_Access.ConnectionString = strConAccess
3210 con_Access.Open
3220 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[DBGRID] FROM [DBGRID]\"
3230 con_Access.Execute SQL


'DN.mdb
3240 cmdBar.Caption = \"Updating DN.mdb\"
3250 If Not con_Access Is Nothing Then Set con_Access = Nothing
3260 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DN.mdb;Persist Security Info=False\"
3270 con_Access.ConnectionString = strConAccess
3280 con_Access.Open
3290 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[DN] FROM [DN]\"
3300 con_Access.Execute SQL

'DO.mdb
3310 cmdBar.Caption = \"Updating DO.mdb\"
3320 If Not con_Access Is Nothing Then Set con_Access = Nothing
3330 strConAccess = \"Provider=Microsoft.Jet.O LEDB.4.0;Data Source=\" & Ph & \"\DO.mdb;Persist Security Info=False\"
3340 con_Access.ConnectionString = strConAccess
3350 con_Access.Open
3360 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server ;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[doINVOICE] FROM [DO]\"
3370 con_Access.Execute SQL
3380 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[doINVOICEDETAILS] FROM [DODETAILS]\"
3390 con_Access.Exec ute SQL
3400 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[doFILLEDITEMS] FROM [FILLEDITEMS]\"
3410 con_Access.Execute SQL

'DocNo.mdb
3420 cmdBar.Caption = \"Updating DocNo.mdb\"
3430 If Not con_Access Is Nothing Then Set con_Access = Nothing
3440 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DocNo.mdb;Persist Security Info=False\"
3450 con_Access.ConnectionString = strConAccess
3460 con_Access.Open
3470 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noBillRec] FROM [BillRec]\"
3480 con_Access.Execute SQL
3490 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCaSaNo] FROM [CaSaNo]\"
3500 con_Access.Execute SQL
3510 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCO] FROM [CO]\"
3520 con_Access.Execute SQL
3530 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCreditNotePur] FROM [CreditNotePur]\"
3540 con_Access.Execute SQL
3550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCreditNoteSale] FROM [CreditNoteSale]\"
3560 con_Access.Execute SQL
3570 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCrSaNo] FROM [CrSaNo]\"
3580 con_Access.Execute SQL
3590 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noDebitNotePur] FROM [DebitNotePur]\"
3600 con_Access.Execute SQL
3610 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noDebitNoteSale] FROM [DebitNoteSale]\"
3620 con_Access.Execute SQL
3630 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noDO] FROM [DO]\"
3640 con_Access.Execute SQL
3650 SQL = \"SELECT * INTO [ODBC;Dr iver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noGJCash] FROM [GJCash]\"
3660 con_Access.Execute SQL
3670 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noGJno] FROM [GJno]\"
3680 con_Access.E xecute SQL
3690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noGJPurchase] FROM [GJPurchase]\"
3700 con_Access.Execute SQL
3710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noGJsales] FROM [GJsales]\"
3720 con_Access.Execute SQL
3730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noIssue] FROM [Issue]\"
3740 con_Access.Execute SQL
3750 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noPayBill] FROM [PayBill]\"
3760 con_Access.Execute SQL
3770 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noPurchaseReturn] FROM [PurchaseReturn]\"
3780 con_Access.Execute SQL
3790 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noPurno] FROM [Purno]\"
3800 con_Access.Execute SQL
3810 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noQUO] FROM [QUO]\"
3820 con_Access.Execute SQL
3830 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noSalesReturn] FROM [SalesReturn]\"
3840 con_Access.Execute SQL

'DOCNUMBER.mdb 'using rstockno (table)
3850 cmdBar.Caption = \"Updating DOCNUMBER.mdb\"
3860 If Not con_Access Is Nothing Then Set con_Access = Nothing
3870 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DOCNUMBER.mdb;Persist Security Info=False\"
3880 con_Access.ConnectionString = strConAccess
3890 con_Access.Open
3900 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rstockno] FROM [rstockno]\"
3910 con_Access.Execute SQL

'DoLabel.mdb
3920 cmdBar.Caption = \"Updating DoLabel.mdb\"
3930 If Not con_Access Is Nothing Then Set con_Access = Nothing
3940 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DoLabel.mdb;Persist Security Info=False\"
3950 con_Access.ConnectionString = strConAccess
3960 con_Access.Open
3970 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[doLabel] FROM [Label]\"
3980 con_Access.Execute SQL

'DOLLAR.mdb
3990 cmdBar.Caption = \"Updating DOLLAR.mdb\"
4000 If Not con_Access Is Nothing Then Set con_Access = Nothing
4010 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DOLLAR.mdb;Persist Security Info=False\"
4020 con_Access.ConnectionString = strConAccess
4030 con_Access.Open
4040 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DAT ABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CURRENCY] FROM [CURRENCY]\"
4050 con_Access.Execute SQL
4060 SQL = \"SELECT * INTO [ ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[DOLLAR] FROM [DOLLAR]\"
4070 con_Access.Execute SQL


'EXCHANGERATE.mdb
4080 cmdBar.Caption = \"Updating EXCHANGERATE.mdb\"
4090 If Not con_Access Is Nothing Then Set con_Access = Nothing
4100 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\EXCHANGERATE.mdb;Persist Security Info=False\"
4110 con_Access.ConnectionString = strConAccess
4120 con_Access.Open
4130 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[EXCHANGERATE] FROM [EXCHANGERATE]\"
4140 con_Access.Execute SQL

'EXCHANGERATEmthly.mdb
4150 cmdBar.Caption = \"Updating EXCHANGERATEmthly.mdb\"
4160 If Not con_Access Is Nothing Then Set con_Access = Nothing
4170 strCon Access = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\EXCHANGERATEmthly.mdb;Persist Security Info=False\"
4180 con_Access.ConnectionString = strConAccess
4190 con_Access.Open
4200 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[EXCHANGERATEmthly] FROM [EXCHANGERATEmthly]\"
4210 con_Access.Ex ecute SQL

'GLFIN.mdb
4220 cmdBar.Caption = \"Updating GLFIN.mdb\"
4230 If Not con_Access Is Nothing Then Set con_Access = Nothing
4240 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GLFIN.mdb;Persist Security Info=False\"
4250 con_Access.ConnectionString = strConAccess
4260 con_Access.Open
4270 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLFIN1] FROM [GLFIN]\"
4280 con_Access. Execute SQL

'GLFIN2.mdb
4290 cmdBar.Caption = \"Updating GLFIN2.mdb\"
4300 If Not con_Access Is Nothing Then Set con_Access = No thing
4310 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GLFIN2.mdb;Persist Security Info=False\"
4320 con_Access.ConnectionString = strConAccess
4330 con_Access.Open
4340 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLFIN2] FROM [GLFIN]\"
4350 con_Access.Execute SQL

'GLFIN12.mdb
4360 cmdBar.Caption = \"Updating GLFIN12.mdb\"
4370 If Not con_Access Is Nothing Then Set con_Access = Nothing
4380 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GLFIN12.mdb;Persist Security Info=False\"
4390 con_Access.ConnectionString = strConAccess
4400 con_Access.Open
4410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLFIN12] FROM [GLFIN12]\"
4420 con_Access.Execute SQL

'GLUNDO.mdb
4430 cmdBar.Caption = \"Updating GLUNDO.mdb\"
4440 If Not con_Access Is Nothing Then Set con_Access = Nothing
4450 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GLUNDO.mdb;Persist Security Info=False\"
4460 con_Access.ConnectionString = strConAccess
4470 con_Access.< span class=\"code-leadattribute\">Open
4480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLHEADUNDO] FROM [GLHEADUNDO]\"
4490 con_Access.Execute SQL
4500 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLUNDO2] FROM [GLUNDO]\"
4510 con_Access.Execute SQL

'Graded.mdb
4520 cmdBar.Caption = \"Updating Graded.mdb\"
4530 If Not con_Access Is Nothing Then Set con_Access = Nothing
4540 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Graded.mdb;Persist Security Info=False\"
4550 con_Access.Conne ctionString = strConAccess
4560 con_Access.Open
4570 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GradedDETAILS] FROM [GradedDETAILS]\"
4580 con_Access.Execute SQL

'GradedGP.mdb
4590 cmdBar.Caption = \"Updating GradedGP.mdb\"
4600 If Not con_Access Is Nothing Then Set con_Access = Nothing
4610 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GradedGP.mdb;Persist Security Info=False\"
4620 con_Access.ConnectionString = strConAccess
4630 con_Access.Open
4640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GradedGP] FROM [GradedGP]\"
4650 con_Access.Execute SQL

'grn.mdb
4660 cmdBar.Caption = \"Updating GRN.mdb\"
4670 If Not con_Access Is Nothing Then Set con_Access = Nothing
4680 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\grn.mdb;Persist Security Info=False\"
4690 con_Access.ConnectionString = strConAccess
4700 con_Access.Open
4710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnFILLEDITEMS] FROM [FILLEDITEMS]\"
4720 con_Access.Execute SQL
4730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";D ATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnINVOICE] FROM [INVOICE]\"
4740 con_Access.Execute SQL
4750 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnINVOICEDETAILS] FROM [INVOICEDETAILS]\"
4760 con_Access.Execute SQL

'GRNHANDPHONE.mdb
4770 cmdBar.Caption = \"Updating GRNHANDPHONE.mdb\"
4780 If Not con_Access Is Nothing Then Set con_Access = Nothing
4790 strConAccess = \"Pr ovider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GRNHANDPHONE.mdb;Persist Security Info=False\"
4800 con_Access.ConnectionString = strConAccess
4810 con_Access.Open
4820 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GRNHEADER] FROM [GRNHEADER]\"
4830 con_Access.Execute SQL
4840 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GRNITEMS] FROM [GRNITEMS]\"
4850 con_Access.Execute SQL

'GrnLabel.mdb
4860 cmdBar.Caption = \"Updating GrnLabel.mdb\"
4870 If Not con_Access Is Nothing Then Set con_Access = Nothing
4880 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GrnLabel.mdb;Persist Security Info=False\"
4890 con_Access.ConnectionString = strConAccess
4900 con_Access.Open
4910 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnLabel] FROM [Label]\" $b$ b 4920 con_Access.Execute SQL

'Grnws.mdb
4930 cmdBar.Caption = \"Updating Grnws.mdb\"
4940 If Not con_Access Is Nothing Then Set con_Access = Nothing
4950 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Grnws.mdb;Persist Security Info=False\"
4960 con_Access.ConnectionString = strConAccess
4970 con_Access.Open
4980 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnwFILLEDITEMS] FROM [FILLEDITEMS]\"
4990 con_Access.Execute SQL
5000 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser &am p; \";PWD=\" & mPwd & \";].[grnwINVOICE] FROM [INVOICE]\"
5010 con_Access.Execute SQL
' sql =\"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & sDataSource & \";DATABASE=inventory;].[grnwINVOICEDETAILS] FROM [INVOCIEDETAILS]\"
' con_Access.Execute Sql

'IMEI.mdb
5020 cmdBar.Caption = \"Updating IMEI.mdb\"
5030 If Not con_Access Is Nothing Then Set con_Access = Nothing
5040 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\IMEI.mdb;Persist Security Info=False\"
5050 con_Access.ConnectionString = strConAccess
5060 con_Access.Open
5070 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[IMEI] FROM [IMEI]\"
5080 con_Access.Execute SQL

'InvLabel.mdb
5090 cmdBar.Caption = \"Updating InvLabel.mdb\"
5100 If Not con_Access Is Nothing Then Set con_Access = Nothing
5110 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\InvLabel.mdb;Persist Security Info=False\"
5120 con_Access.ConnectionString = strConAccess
5130 con_Access.Open
5140 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[invLabel] FROM [Label ]\"
5150 con_Access.Execute SQL

'INVOICE.mdb
5160 cmdBar.Caption = \"Updating INVOICE.mdb\"
5170 If Not con_Access Is Nothing Then Set con_Access = Nothing
5180 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\INVOICE.mdb;Persist Security Info=False\"
5190 con_Access.ConnectionString = strConAccess
5200 con_Access.Open
5210 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[invINVOICE] FROM [INVOICE]\"
5220 con_Access.Execute SQL
5230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser &am p; \";PWD=\" & mPwd & \";].[invINVOICEDETAILS] FROM [INVOICEDETAILS]\"
5240 con_Access.Execute SQL

'INVTEMP.mdb
5250 cmdBar.Caption = \"Updating INVTEMP.mdb\"
5260 If Not con_Access Is Nothing Then Set con_Access = Nothing
5270 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\INVTEMP.mdb;Persist Security Info=False\"
5280 con _Access.ConnectionString = strConAccess
5290 con_Access.Open
5300 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[invtINVOICE] FROM [INVOICE]\"
5310 con_Access.Execute SQL
5320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & ; DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[invtINVOICEDETAILS] FROM [INVOICEDETAILS]\"
5330 con_Access.Execute SQL

'invws.mdb


'Issue.mdb
5340 cmdBar.Caption = \"Updating Issue.mdb\"
5350 If Not con_Access Is Nothing Then Set con_Access = Nothing
5360 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Issue.mdb;Persist Security Info=False\"
5370 con_Access.ConnectionString = strConAccess
5380 con_Access.Open
5390 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[isINVOICE] FROM [INVOICE]\"
5400 con_Access.Execute SQL
5410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[isINVOICEDETAILS] FROM [INVOICEDETAILS]\"
5420 con_Access.Execute SQL

'LabelBS.mdb
5430 cmdBar.Caption = \"Updating LabelBS.mdb\"
5440 If Not con_Access Is Nothing Then Set con_Access = Nothing
5450 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\LabelBS.mdb;Persist Security Info=False\"
5460 con_Access.ConnectionString = strConAccess
5470 con_Access.Open
5480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[LabelBS] FROM [LabelBS]\"
5490 con_Access.Execute SQL

'LabelPL.mdb
5500 cmdBar.Caption = \"Updating LabelPL.mdb\"
5510 If Not con_Access Is Nothing Then Set con_Access = Nothing
5520 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\LabelPL.mdb;Persist Security Info=False\"
5530 con_Access.ConnectionString = strConAccess
5540 con_Access.Open
5550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[LabelPL] FROM [LabelPL]\"
5560 con_Access.Execute SQL

'lic.mdb
5570 cmdBar.Caption = \"Updating lic.mdb\"
5580 If Not con_Access Is Nothing Then Set con_Access = Nothing
5590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\lic.mdb;Persist Security Info=False\"
5600 con_Access.ConnectionString = strConAccess
5610 con_Access.Open
5620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lic] FROM [lic]\"
5630 con_Access.Execute SQL

'lock.mdb
5640 cmdBar.Caption = \"Updating LOCK.mdb\"
5650 If Not con_Access Is Nothing Then Set con_Access = Nothing
5660 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\lock.mdb;Persist Security Info=False\"
5670 con_Access.ConnectionString = strConAccess
5680 con_Access.O pen
5690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[LOCK] FROM [LOCK]\"
5700 con_Access.Execute SQL

'LPPRICE.mdb
5710 cmdBar.Caption = \"Updating LPPRICE.mdb\"
5720 If Not con_Access Is Nothing Then Set con_Acces s = Nothing
5730 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\LPPRICE.mdb;Persist Security Info=False\"
5740 con_Access.ConnectionString = strConAccess
5750 con_Access.Open
5760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lpCUSTOMER] FRO M [CUSTOMER]\"
5770 con_Access.Execute SQL
5780 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lpPRICE] FROM [LPPRICE]\"
5790 con_Access.Execute SQL

'LSPRICE.mdb
5800 cmdBar.Caption = \"Updating LSPRICE.mdb\"
5810 If Not con_Access Is Nothing Then Set con_Access = Nothing
5820 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\LSPRICE.mdb;Persist Security Info=False\"
5830 con_Access.ConnectionString = strConAccess
5840 con_Access.Open
5850 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lsCUSTOMER] FROM [CUSTOMER]\"
5860 con_Access.Execute SQL
5870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & Data File & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lsPRICE] FROM [LSPRICE]\"
5880 con_Access.Execute SQL

'MP.mdb
5890 cmdBar.Caption = \"Updating MP.mdb\"
5900 If Not con_Access Is Nothing Then Set con_Access = Nothing
5910 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\MP.md b;Persist Security Info=False\"
5920 con_Access.ConnectionString = strConAccess
5930 con_Access.Open
5940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[MP] FROM [MP]\"
5950 con_Access.Execute SQL
5960 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[MPITEMS] FROM [MPITEMS]\"
5970 con_Access.Execute SQL

'MTHPYT.mdb
5980 cmdBar.Caption = \"Updating MTHYT.mdb\"
5990 If Not con_Access Is Nothing Then Set con_Access = Nothing
6000 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\MTHPYT.mdb;Persist Security Info=False\"
6010 con_Access.ConnectionString = strConAccess
6020 con_Access.Open
6030 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[mthpytGLAGE] FROM [GLAGE]\"
6040 con_Access.Execute SQL
6050 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[mthpytGLAGETRSF] FROM [GLAGETRSF]\"
6060 con_Access.Execute SQL
6070 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[MTHPYT] FROM [MTHPYT]\"
6080 con_Access.Execute SQL
6090 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[OPENINGBAL] FROM [OPENINGBAL]\"
6100 con_Access.Execute SQL

'PAYMENT.mdb
6110 cmdBar.Caption = \"Updating PAYMENT.mdb\"
6120 If Not con_Access Is Nothing Then Set con_Access = Nothing
6130 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PAYMENT.mdb;Persist Security Info=False\"
6140 con_Access.ConnectionString = strConAccess
6150 con_Access.Open
6160 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PAYMENT] FROM [PAYMENT]\"
6170 con_Access.Execute SQL

'PICKUP.mdb

'PLANT.mdb
6180 cmdBar.Caption = \"Updating PLANT.mdb\"
6190 If Not con_Access Is Nothing Then Set con_Access = Nothing
6200 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PLANT.mdb;Persist Security Info=False\"
6210 con_Access.ConnectionString = strConAccess
6220 con_Access.Open
6230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PLANT] FROM [PLANT]\"
6240 con_Access.Execute SQL

'PO.mdb
6250 cmdBar.Caption = \"Updating PO.mdb\"
6260 If Not con_Access Is Nothing Then Set con_Access = Nothing
6270 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PO.mdb;Persist Security Info=False\"
6280 con_Access.ConnectionString = strConAccess
6290 con_Access.Open
6300 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataF ile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[poFILLEDITEMS] FROM [FILLEDITEMS]\"
6310 con_Access.Execute SQL
6320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[poINVOICE] FROM [INVOICE]\"
6330 con_Access.Execute SQL
6340 SQL = \"SELEC T * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[poINVOICEDETAILS] FROM [INVOICEDETAILS]\"
6350 con_Access.Execute SQL

'PoLabel.mdb
6360 cmdBar.Caption = \"Updating POLABEL.mdb\"
6370 If Not con_Access Is Nothing Then Set con_Access = Nothing
6380 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PoLabel.mdb;Persist Security Info=False\"
6390 con_Access.ConnectionString = strConAccess
6400 con_Access.Open
6410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[poLabel] FROM [Label]\"
6420 con_Access.Execute SQL

'POSTING.mdb
6430 cmdBar.Caption = \"Updating POSTING.mdb\"
6440 If Not con_Access Is Nothing Then Set con_Access = Nothing
6450 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\POSTING.mdb;Persist Security Info=False\"
6460 con_Access.ConnectionString = strConAccess
6470 con_Access.Open
6480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[POSTING] FROM [POSTING]\"
6490 con_Access.Execute SQL


'PRICE.mdb
6500 cmdBar.Caption = \"Updating PRICE.mdb\"
6510 If Not con_Access Is Nothing Then Set con_Access = N othing
6520 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PRICE.mdb;Persist Security Info=False\"
6530 con_Access.ConnectionString = strConAccess
6540 con_Access.Open
6550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PRICE] FROM [PRICE]\"
6560 con_Access.Execute SQL

'PRICELAST.mdb
6570 cmdBar.Caption = \"Updating PRICELAST.mdb\"
6580 If Not con_Access Is Nothing Then Set con_Access = Nothing
6590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PRICELAST.mdb;Persist Security Info=False\"
6600 con_Access.ConnectionString = strConAccess
6610 con_Access.Open
6620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[laPRICE] FROM [PRICE]\"
6630 con_Access.Execute SQL

'PRICELIST.mdb
6640 cmdBar.Caption = \"Updating PRICELIST.mdb\"
6650 If Not con_Access Is Nothing Then Set con_ Access = Nothing
6660 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PRICELIST.mdb;Persist Security Info=False\"
6670 con_Access.ConnectionString = strConAccess
6680 con_Acc ess.Open
6690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PRICELIST] FROM [PRICELIST]\"
6700 con_Access.Execute SQL

'PROBATCH.mdb
6710 cmdBar.Caption = \"Updating PROBATCH.mdb\"
6720 If Not con_Access Is Nothing Then Set con_Access = Nothing
6730 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PROBATCH.mdb;Persist Security Info=False\"
6740 con_Access.ConnectionString = strConAccess
6750 con_Access.Open
6760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PROBATCH] FROM [PROBATCH]\"
6770 con_Access.Execute SQL

'product.mdb
6780 cmdBar.Caption = \"Updating PRODUCT.mdb\"
6790 If Not con_Access Is Nothing Then Set con_Access = Nothing
6800 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\product.mdb;Persist Security Info=False\"
6810 con_Access.ConnectionString = strConAccess
6820 con_Access.Open
6830 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PRODUCT] FROM [PRODUCT]\"
6840 con_Access.Execute SQL

'PS.mdb
6850 cmdBar.Caption = \"Updating PS.mdb\"
6860 If Not con_Access Is Nothing Then Set con_Access = Nothing
6870 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PS.mdb;Persist Security Info=False\"
6880 con_Access.ConnectionString = strConAccess
6890 con_Access.Open
6900 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PS] FROM [PS]\"
6910 con_Access.Execute SQL
6920 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & ; mUser & \";PWD=\" & mPwd & \";].[PSDESC] FROM [PSDESC]\"
6930 con_Access.Execute SQL


'PURCHASESRETURN.mdb
6940 cmdBar.Caption = \"Updating PURCHASESRETURN.mdb\"
6950 If Not con_Access Is Nothing Then Set con_Access = Nothing
6960 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PURCHASESRETURN.mdb;Persist Security I nfo=False\"
6970 con_Access.ConnectionString = strConAccess
6980 con_Access.Open
6990 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[prINVOICE] FROM [INVOICE]\"
7000 con_Access.Execute SQL
7010 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[prINVOICEDETAILS] FROM [INVOICEDETAILS]\"
7020 con_Access.Execute SQL

'QuLabel.mdb
7030 cmdBar .Caption = \"Updating QuLabel.mdb\"
7040 If Not con_Access Is Nothing Then Set con_Access = Nothing
7050 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\QuLabel.mdb;Persist Security Info=False\"
7060 con_Access.ConnectionString = strConAccess
7070 con_Access.Open
7080 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[quLabel] FROM [Label]\"
7090 con_Access.Execute SQL

'QUOT.mdb
7100 cmdBar.Caption = \"Updating QUOT.mdb\"
7110 If Not con_Access Is Nothing Then Set con_Access = Nothing
7120 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\QUOT.mdb;Persist Security Info=False\"
7130 con_Access.ConnectionString = strConAccess
7140 con_Access.Open
7150 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVE R=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[quFILLEDITEMS] FROM [FILLEDITEMS]\"
7160 con_Access.Execute SQL
7170 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[quINVOICE] FROM [SALESORDER]\"
7180 con_Access.Execute SQL
7190 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[quINVOICEDETAILS] FROM [SALESORDERDETAILS]\"
7200 con_Access.Execute SQL


'RAWINFO.mdb
7210 cmdBar.Caption = \"Updating RAWINFO.mdb\"
7220 If Not con_Access Is Nothing Then Set con_Access = Nothing
7230 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\RAWINFO.mdb;Persist Security Info=False\"
7240 con_Access.ConnectionString = strConAccess
7250 con_Access.Open
7260 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CAT] FROM [CAT]\"
7270 con_Access.Execute SQL
7280 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RAWINFO] FROM [RAWINFO]\"
7290 con_Access.Execute SQL

'RAWSTOCK.mdb
7300 cmdBar.Caption = \"Updating RAWSTOCK.mdb\"
7310 If Not con_Access Is Nothing Then Set con_Access = Nothing
7320 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\RAWSTOCK.mdb;Persist Security Info=False\"
7330 con_Access.ConnectionString = strConAccess
7340 con_Access.Open
7350 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rawBATCHINFO] FROM [BATCHINFO]\"
7360 con_Access.Execute SQL
7370 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rawRSTOCKDETAILS] FROM [RSTOCKDETAILS]\"
7380 con_Access.Execute SQL
7390 SQL = \"SELECT * INTO [ ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rawRSTOCKHEAD] FROM [RSTOCKHEAD]\"
7400 con_Access.Execute SQL
7410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rawRSTOCKLIST] FROM [RSTOCKLIST]\"
7420 con_Access.Execute SQL

'rawstockstatus.mdb
7430 cmdBar.Caption = \"Updating rawstockstatus.mdb\"
7440 If Not con_Access Is Nothing Then Set con_Access = Nothing
7450 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\rawstockstatus.mdb;Persist Security Info=False\"
7460 con_Access.ConnectionString = strConAccess
7470 con_Access.Open
7480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RAWSTATUS] FROM [RAWSTATUS]\"
7490 con_Access.Execute SQL

'RECEIPT.mdb
7500 cmdBar.Caption = \"Updating RECEIPT.mdb\"
7510 If Not con_Access Is Nothing Then Set con_Access = Nothing
7520 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\RECEIPT.mdb;Persist Security Info=False\"
7530 con_Access.ConnectionString = strConAccess
7540 con_Access.Open
7550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RECEIPT] FROM [RECEIPT]\"
7560 con_Access.Execute SQL

'REPORTFILE.mdb
7570 cmdBar.Caption = \"Updating REPORTFILE.mdb\"
7580 If Not con_Access Is Nothing Then Set con_Access = Nothing
7590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\REPORTFILE.mdb;Persist Security Info=False\"
7600 con_Access.ConnectionString = strConAccess
7610 con_Access.Open
7620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[repDO] FROM [DO]\"
7630 con_Access.Execute SQL
7640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \" ;PWD=\" & mPwd & \";].[repINVOICE] FROM [INVOICE]\"
7650 con_Access.Execute SQL

'ROOM.mdb
7660 cmdBar.Caption = \"Updating ROOM.mdb\"
7670 If Not co n_Access Is Nothing Then Set con_Access = Nothing
7680 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\ROOM.mdb;Persist Security Info=False\"
7690 con_Access.ConnectionString = strConAccess
7700 con_Access.Open
7710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[ROOM] FROM [ROOM]\"
7720 con_Access.Execute SQL

'rpt.mdb
7730 cmdBar.Caption = \"Updating RPT.mdb\"
7740 If Not con_Access Is Nothing Then Set con_Access = Nothing
7750 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\rpt.mdb;Persist Security Info=False\"
7760 con_Access.ConnectionString = strConAccess
7770 con_Access.Open
'7780 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptClientAc] FROM [ClientAc]\"
'7790 con_Access.Execute SQL
'7800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptClientBankAc] FROM [ClientBankAc]\"
'7810 con_Access.Execute SQL
7820 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" < span class=\"code-leadattribute\">& mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptGLAGEtrsf] FROM [GLAGEtrsf]\"
7830 con_Access.Execute SQL
7840 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptGLAGETRSFMBM] FROM [GLAGETRSFMBM]\"
7850 con_Access.Execute SQL
7860 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptGLFIN] FROM [GLFIN]\"
7870 con_Access.Execute SQL
7880 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD =\" & mPwd & \";].[rptGSTAC] FROM [GSTAC]\"
7890 con_Access.Execute SQL
7900 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptJournalListing] FROM [JournalListing]\"
7910 con_Access.Execute SQL
7920 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptLedger] FROM [Ledger]\"
7930 con_Access.Execute SQL
'7940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptLedgerGstSales] FROM [LedgerGstSales]\"
'7950 con_Access.Execute SQL
< span class=\"code-leadattribute\">7960 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptOPENITEMSTAC] FROM [OPENITEMSTAC]\"
7970 con_Access.Execute SQL
7980 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RPT] FROM [RPT]\"
7990 con_Access.Execute SQL
con_Access.Execute SQL
8000 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RPTHEADER] FROM [RPTHEADER]\"
8010 con_Access.Execute SQL
8020 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTClisting] FROM [TClisting]\"
8030 con_Access.Execute SQL
8040 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTDlisting] FROM [Tdlisting]\"
8050 con_Access.Execute SQL
8060 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTOClisting] FROM [Toclisting]\"
8070 con_Access.Execute SQL
8080 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTODlisting] FROM [TODlisting]\"
8090 con_Access.Execute SQL
8100 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & Dat aFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTrialBalance] FROM [TrialBalance]\"
8110 con_Access.Execute SQL

'RS.MDB
8120 cmdBar.Caption = \"Updating RS.mdb\"
8130 If Not con_Access Is Nothing Then Set con_Access = Nothing
8140 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\rs.mdb;Persist Security Info=False\"
8150 con_Access.ConnectionString = strConAccess
8160 con_Access.Open
8170 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RS] FROM [RS]\"
8180 con_Access.Execute SQL

'SALESORDER.mdb
8190 cmdBar.Caption = \"Up dating SALESORDER.mdb\"
8200 If Not con_Access Is Nothing Then Set con_Access = Nothing
8210 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SALESORDER.mdb;Persist Security Info=False\"
8220 con_Access.ConnectionString = strConAccess
8230 con_Access.Open
8240 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE =\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soFILLEDITEMS] FROM [FILLEDITEMS]\"
8250 con_Access.Execute SQL
8260 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soINVOICE] FROM [SALESORDER]\"
8270 con_Access.Execute SQL
8280 SQ L = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soINVOICEDETAILS] FROM [SALESORDERDETAILS]\"
8290 con_Access.Execute SQL

'SalesRep.mdb
8300 cmdBar.Caption = \"Updating SalesRep.mdb\"
8310 If Not con_Access Is Nothing Then Set con_Access = Nothing
8320 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SALESREP.mdb;Persist Security Info=False\"
8330 con_Access.ConnectionString = strConAccess
8340 con_Access.Open
8350 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SALESREP] FROM [SALESREP]\"
8360 con_Access.Execute SQL

'SALESRETURN.mdb
8370 cmdBar.Caption = \"Updating SALESRETURN.mdb\"
8380 If Not con_Access Is Nothing Then Set con_Access = Nothing
8390 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SALESRETURN.mdb;Persist Security Info=False\"
8400 con_Access.ConnectionString = strConAccess
8410 con_Access.Open
8420 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[srINVOICE] FROM [INVOICE]\"
8430 con_Access.Execute SQL
8440 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[srINVOICEDETAILS] FROM [INVOICEDETAILS]\"
8450 con_Access.Execute SQL

'SERVICECARD.mdb
8460 cmdBar.Caption = \"Updating SERVICECARD.mdb\"
8470 If Not con_Access Is Nothing Then Set con_Access = Nothing
8480 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SERVICECARD.mdb;Persist Security Info=False\"
8490 con_Access.ConnectionString = strConAccess
8500 con_Access.Open
8510 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICECARD] FROM [SERVICECARD]\"
8520 con_Access.Execute SQL
8530 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICECARDITEM] FROM [SERVICECARDITEM]\"
8540 con_Access.Execute SQL
8550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICERECORD] FROM [SERVICERECORD]\"
8560 con_Access.Execute SQL

'SERVICEINFO.mdb
8570 cmdBar.Caption = \"Updating SERVICEINFO.mdb\"
8580 If Not con_Access Is Nothing Then Set con_Access = Nothing
8590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SERVICEINFO.mdb;Persist Security Info=False\"
8600 con_Access.ConnectionString = strConAccess
8610 con_Access.Open
8620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICEINFO] FROM [SERVICEINFO]\"
8630 con_Access.Execute SQL

'SERVICEINTERVAL.mdb
8640 cmdBar.Caption = \"Updating SERVICEINTERVAL.mdb\"
8650 If Not con_Access Is Nothing Then Set con_Access = Nothing
8660 strConAccess = \"Provid er=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SERVICEINTERVAL.mdb;Persist Security Info=False\"
8670 con_Access.ConnectionString = strConAccess
8680 con_Access.Open
8690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICEINTERVAL] FROM [SERVICEINTERVAL]\"
8700 con_Access.Execute SQL

'SERVICESTATUS.mdb
8710 cmdBar.Caption = \"Updating SERVICESTATUS.mdb\"
8720 If Not con_Access Is Nothing Then Set con_Access = Nothing
8730 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SERVICESTATUS.mdb;Persist Security Info=False\"
8740 con_Access.ConnectionString = strConAccess
8750 con_Access.Open
8760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICESTATUS] FROM [SERVICESTATUS]\"
8770 con_Access.Execute SQL

'shan.mdb
8780 cmdBar.Caption = \"Updating SHAN.mdb\"
8790 If Not con_Access Is Nothing Then Set con_Access = Nothing
8800 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\shan.mdb;Persist Security Info=False\"
8810 con_Access.ConnectionString = strConAccess
8820 con_Access.Open
8830 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noINV] FROM [table1]\"
8840 con_Access.Execute SQL

'SNTRAN.mdb
8850 cmdBar.Caption = \"Updating SNTRAN.mdb\"
8860 If Not con_Access Is Nothing Then Set con_Access = Nothing
8870 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SNTRAN.mdb;Persist Security Info=False\"
8880 con_Access.ConnectionString = strConAccess
8890 con_Access.Open
8900 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[snCB] FROM [CB]\"
8910 con_Access.Execute SQL
8920 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[snDO] FROM [DO]\"
8930 con_Access.Execute SQL
8940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUse r & \";PWD=\" & mPwd & \";].[snINVOICE] FROM [INVOICE]\"
8950 con_Access.Execute SQL

'SOENQUIRY.mdb
8960 cmdBar.Caption = \"Updating SOENQUIRY.mdb\"
8970 If Not con_Access Is Nothing Then Set con_Access = Nothing
8980 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SOENQUIRY.mdb;Persist Security Info=False\"
8990 con_Access.ConnectionString = strConAccess
9000 con_Access.Open
9010 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soeINVOICE] FROM [SALESORDER]\"
9020 con_Access.Execute SQL

'SoLabel.mdb
9030 cmdBar.Caption = \"Updating SoLabel.mdb\"
9040 If Not con_Access Is Nothing Then Set con_Access = Nothing
9050 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SoLabel.mdb;Persist Security Info=False\"
9060 con_Access.ConnectionString = strConAccess
9070 con_Access.Open
9080 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile &a mp; \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soLabel] FROM [Label]\"
9090 con_Access.Execute SQL
'SS.mdb
9100 cmdBar.Caption = \"Updating SS.mdb\"
9110 If Not con_Access Is Nothing Then Set con_Access = Nothing
9120 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SS.mdb;Persist Security Info=False\"
9130 con_Access.ConnectionString = strConAccess
9140 con_Access.Open
9150 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SS] FROM [SS]\"
9160 con_Access.Execute SQL

'SSADMIN.mdb
9170 cmdBar.Caption = \"Updating SSADMIN.mdb\"
9180 If Not con_Access Is Nothing Then Set con_Access = Nothing
9190 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SSADMIN.mdb;Persist Security Info=False\"
9200 con_Access.ConnectionString = strConAccess
9210 con_Access.Open
9220 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SSADMIN] FROM [SSADMIN]\"
9230 con_Access.Execute SQL

'STAFF.mdb
9240 cmdBar.Caption = \"Updating SSTAFF.mdb\"
9250 If Not con_Access Is Nothing Then Set con_Access = Nothing
9260 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STAFF.mdb;Persist Security Info=False\"
9270 con_Access.ConnectionString = strConAccess
9280 con_Access.Open
9290 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" &am p; DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STAFF] FROM [STAFF]\"
9300 con_Access.Execute SQL

'STATEMENTGROUP.mdb
9310 cmdBar.Caption = \"Updating STATEMENTGROUP.mdb\"
9320 If Not con_Access Is Nothing Then Set con_Access = Nothing
9330 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & P h & \"\STATEMENTGROUP.mdb;Persist Security Info=False\"
9340 con_Access.ConnectionString = strConAccess
9350 con_Access.Open
9360 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & amp; \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STATEMENTGROUP] FROM [STATEMENTGROUP]\"
9370 con_Access.Execute SQL

'STATETYPE.mdb
9380 cmdBar.Capti on = \"Updating STATETYPE.mdb\"
9390 If Not con_Access Is Nothing Then Set con_Access = Nothing
9400 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STATETYPE.mdb;Persist Security Info=False\"
9410 con_Access.ConnectionString = strConAccess
9420 con_Access.Open
9430 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STATETYPE] FROM [STATETYPE]\"
9440 con_Access.Execute SQL

'STKprice.mdb
9450 cmdBar.Caption = \"Updating STKprice.mdb\"
9460 If Not con_Access Is Nothing Then Set con_Access = Nothing
9470 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STKprice.mdb;Persist Security Info=False\"
9480 con_Access.ConnectionString = strConAccess
9490 con_Access.Open
9500 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STKprice] FROM [STKPrice]\"
9510 con_Access.Execute SQL

'STOCK.mdb
952 0 cmdBar.Caption = \"Updating STOCK.mdb\"
9530 If Not con_Access Is Nothing Then Set con_Access = Nothing
9540 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCK.mdb;Persist Security Info=False\"
9550 con_Access.ConnectionString = strConAccess
9560 con_Access.Open
9570 SQL = \"SELECT * INTO [ODBC; Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[stkBATCHINFO] FROM [BATCHINFO]\"
9580 con_Access.Execute SQL
9590 SQL < span class=\"code-leadattribute\">= \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[REPORTDATE] FROM [REPORTDATE]\"
9600 con_Access.Execute SQL
9610 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STOCKDETAILS] FROM [STOCKDETAILS]\"
9620 con_Access.Execute SQL
9630 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STOCKHEAD] FROM [STOCKHEAD]\"
9640 con_Access.Execute SQL
9650 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & Da taFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STOCKLIST] FROM [STOCKLIST]\"
9660 con_Access.Execute SQL

'STOCKbf.mdb
9670 cmdBar.Caption = \"Updating STOCKBF.mdb\"
9680 If Not con_Access Is Nothing Then Set con_Access = Nothing
9690 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKbf.mdb;Persist Security Info=False\"
9700 con_Access.ConnectionString = strConAccess
9710 con_Access.Open
9720 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[bfBATCHINFO] FROM [BATCHINFO]\"
9730 con_Access.Execute SQL
9740 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[bfREPORTDATE] FROM [REPORTDATE]\"
9750 con_Access.Execute SQL
9760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[bfSTOCKDETAILS] FROM [STOCKDETAILS]\"
9770 con_Access.Execute SQL
9780 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[bfSTOCKHEAD] FROM [STOCKHEAD]\"
9790 con_Access.Execute SQL
9800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \"; PWD=\" & mPwd & \";].[bfSTOCKLIST] FROM [STOCKLIST]\"
9810 con_Access.Execute SQL

'STOCKbfTemp.mdb
9820 cmdBar.Caption = \"Updating SSTOCKbfTemp.mdb\"
9830 If Not con_Access Is Nothing Then Set con_Access = Nothing
9840 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKbfTemp.mdb;Persist Security Info=False\"
9850 con_Access.ConnectionString = strConAccess
9860 con_Access.Open
9870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpBATCHINFO] FROM [BATCHINFO]\"
9880 con_Access.Execute SQL
9890 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpREPORTDATE] FROM [REPORTDATE]\"
9900 con_Access.Execute SQL
9910 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpSTOCKDETAILS] FROM [STOCKDETAILS]\"
9920 con_Access.Execute SQL
9930 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpSTOCKHEAD] FROM [STOCKHEAD]\"
9940 con_Access.Exe cute SQL
9950 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpSTOCKLISTS] FROM [STOCKLIST]\"
9960 con_Access.Execute SQL

'STOCKIST.mdb
9970 cmdBar.Caption = \"Updating SSTOCKIST.mdb\"
9980 If Not con_Access Is Nothing Then Set con_Access = Nothing
9990 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKIST.mdb;Persist Security Info=False\"
10000 con_Access.ConnectionString = strConAccess
1 0010 con_Access.Open
10020 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd &am p; \";].[STOCKIST] FROM [STOCKIST]\"
10030 con_Access.Execute SQL

'STOCKMDBbatchInfo.mdb
10040 cmdBar.Caption = \"Updating SSTOCKBATCHINFO.mdb\"
10050 If Not con_Access Is Nothing Then Set con_Access = Nothing
10060 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKMDBbatchInfo.mdb;Persist Security Info=False\"
10070 con_Access.ConnectionString = strConAccess
10080 con_Access.Open
10090 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BATCHINFO] FROM [BATCHINFO]\"
10100 con_Access.Execute SQL

'StockMthly.mdb
10110 cmdBar.Caption = \"Updating SSTOCKMTHLY.mdb\"
10120 If Not con_Access Is Nothing Then Set con_Access = Nothing
10130 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\StockMthly.mdb;Persist Security Info=False\"
10140 con_Access.ConnectionString = strConAccess
10150 con_Access.Open
10160 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";P WD=\" & mPwd & \";].[StockMthly] FROM [StockMthly]\"
10170 con_Access.Execute SQL

'STOCKOUT.mdb
10180 cmdBar.Caption = \"Updating SSTOCKOUT.mdb\"
10190 If Not con_Access Is Nothing Then Set con_Access = Nothing
10200 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKOUT.mdb;Persist Security Info=False\"
10210 con_Access.ConnectionString = strConAccess
10220 con_Access.Open
10230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[stoINVOICE] FROM [INVOICE]\"
10240 con_Access.Execute SQL
10250 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[stoINVOICEDETAILS] FROM [INVOICEDETAILS]\"
10260 con_Access.Execute SQL

'SupLibLabel.mdb
10270 cmdBar.Caption = \"Updating SupLibLabel.mdb\"
10280 If Not con_Access Is Nothing Then Set con_Access = Nothing
10290 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SupLibLabel.mdb;Persist Security Info=False\"
10300 con_Access.ConnectionString = strConAccess
10310 con_Access.Open
10320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[supLabel] FROM [Label]\"
10330 con_Access.Execute SQL

'SYSINFO.mdb
10340 cmdBar.Caption = \"Updating SYSINFO.mdb\"
10350 If Not con_Access Is Nothing Then Set con_Access = Nothing
10360 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SYSINFO.mdb;Persist Security Info=False\"
10370 con_Access.ConnectionString = strConAccess
10380 con_Access.Open
10390 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer < span class=\"code-leadattribute\">& \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CONTROL] FROM [CONTROL]\"
10400 con_Access.Execute SQL
10410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLAP] FROM [GLAP]\"
10420 con_Access.Execute SQL
10430 < span class=\"code-leadattribute\">SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLPASS] FROM [GLPASS]\"
10440 c on_Access.Execute SQL

'TAXCODE.mdb
10450 cmdBar.Caption = \"Updating TAXCODE.mdb\"
10460 If Not con_Access Is Nothing Then Set con_Access = Nothing
10470 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\TAXCODE.mdb;Persist Security Info=False\"
10480 con_Access.ConnectionString = strConAccess
10490 con_Access.Open
10500 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TAXCODE] FROM [TAXCODE]\"
10510 con_Access.Execute SQL

'UDF.mdb
10520 cmdBar.Caption = \"Updating UDF.mdb\"
10530 If Not con_Access Is Nothing Then Set con_Access = Nothing
10540 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\UDF.mdb;Persist Security Info=False\"
10550 con_Access.ConnectionString = strConAccess
10560 con_Access.Open
10570 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfCASHBILL] FROM [CASHBILL]\"
10580 con_Access.Execute SQL
10590 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfDO] FROM [DO]\"
10600 con_Access.Execute SQL
10610 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfFORMULA] FROM [FORMULA]\"
10620 con_Access.Execute SQL
10630 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfGRN] FROM [GRN]\"
10640 con_Access.Execute SQL
10650 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfINVOICE] FROM [INVOICE]\"
10660 con_Access.Execute SQL
10670 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfPO] FROM [PO]\"
10680 con_Access.Execute SQL
10690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfPURCHASESRETURN] FROM [PURCHASESRETURN]\"
10700 con_Access.Execute SQL
10710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfQUOT] FROM [QUOT]\"
10720 con_Access.Execute SQL
10730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFil e & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfSALESORDER] FROM [SALESORDER]\"
10740 con_Access.Execute SQL
10750 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfSALESRETURN] FROM [SALESRETURN]\"
10760 con_Access.Execute SQL

'USERPT.mdb
10770 cmdBar.Caption = \"Updating USERPT.mdb\"
10780 If Not con_Access Is Nothing Then Set con_Access = Nothing
10790 strConAccess = \"Provider=Microsoft.Jet.OLEDB .4.0;Data Source=\" & Ph & \"\USERPT.mdb;Persist Security Info=False\"
10800 con_Access.ConnectionString = strConAccess
10810 con_Access.Open
10820 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER =\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[USERPT] FROM [USERPT]\"
10830 con_Access.Execute SQL

'WAREHOUSE.mdb
10840 cmdBar.Caption = \"Updating WAREHOUSE.mdb\"
10850 If Not con_Access Is Nothing Then Set con_Access = Nothing
10860 strConAccess = \"Provider=Microsoft.Jet. OLEDB.4.0;Data Source=\" & Ph & \"\WAREHOUSE.mdb;Persist Security Info=False\"
10870 con_Access.ConnectionString = strConAccess
10880 con_Access.Open
10890 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[WAREHOUSE] FROM [WAREHOUSE]\"
10900 con_Access.Execute SQL

'wc.mdb
10910 cmdBar.Caption = \"Updating WC.mdb\"
10920 If Not con_Access Is Nothing Then Set con_Access = Nothing
10930 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\wc.mdb;Persist Security Info=False\"
10940 con_Access.ConnectionString = strConAccess
10950 con_Access.Open
10960 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SN] FROM [SN]\"
10970 con_Access.Execute SQL
10980 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[WC] FROM [WC]\"
10990 con_Access.Execute SQL

11000 MsgBox \"Updated server\"
11010 cmdBar.Visible = False
11020 Screen.MousePointer = vbDefault

End Sub

解决方案

Take off the line numbers.



(This bit added because the solution is too sh ort otherwise)

Hi
Yes remove line numbers and Check if condition,it show error conversion in telerik convertor

If Not con_Access Is Nothing Then Set con_Access = Nothing 
 

So change if condition in vb code

If Not con_Access Is Nothing Then Set con_Access = Nothing 
 

to

If Not con_Access Is Nothing Then 
  con_Access = Nothing 
 End IF 
 

and then convert ur code.



Note :in all if condition need to change in vb code and then convert to C#

You can always convert VB.NET to C# and visa versa automatically. You can get especially good quality and comprehensive translation using open-source ILSpy.请参阅我以前的回答：代码解释，C＃到VB .NET [ ^ ]。

-SA

I got an error like this while converting from vb.net to c#.net

CONVERSION ERROR: Code could not be converted. Details:

-- line 1 col 9: invalid NonModuleDeclaration

Please check for any errors in the original code and try again.

I don't have that much of knowledge in vb.net.Would u please correct the code.

I have used this link to convert from vb to c#
http://converter.telerik.com/[^]

My code is

Private Sub UpSqlSvr()

20        Screen.MousePointer = vbHourglass
          Dim SQL As String
          Dim strConAccess As String
          Dim con_Access As New ADODB.Connection

          'accountdata.mdb
30        cmdBar.Caption = "Updating accountdata.mdb"
40        If Not con_Access Is Nothing Then Set con_Access = Nothing
50        strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "accountdata.mdb;Persist Security Info=False"
60        con_Access.ConnectionString = strConAccess
70        con_Access.Open
80            SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ClientAc] FROM [ClientAc]"
90                 con_Access.Execute SQL
100           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ClientBankAc] FROM [ClientBankAc]"
110                con_Access.Execute SQL
120           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GL] FROM [GL]"
130                con_Access.Execute SQL
140           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GL1] FROM [GL1]"
150                con_Access.Execute SQL
160           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE] FROM [GLAGE]"
170                con_Access.Execute SQL
180           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE1] FROM [GLAGE1]"
190                    con_Access.Execute SQL
200           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE1CR] FROM [GLAGE1CR]"
210                    con_Access.Execute SQL
220           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE1DR] FROM [GLAGE1DR]"
230                    con_Access.Execute SQL
240           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE1undo] FROM [GLAGE1undo]"
250                    con_Access.Execute SQL
260           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGEtrsf] FROM [GLAGEtrsf]"
270                    con_Access.Execute SQL
280           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLbakGst] FROM [GlbakGst]"
290                con_Access.Execute SQL
300           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLDEPT] FROM [GLDEPT]"
310                con_Access.Execute SQL
320           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLDEPT2] FROM [GLDEPT2]"
330                con_Access.Execute SQL
340           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLFIN] FROM [GLFIN]"
350                con_Access.Execute SQL
360           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLHEAD] FROM [GLHEAD]"
370                con_Access.Execute SQL
380           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLHEAD1] FROM [GLHEAD1]"
390                con_Access.Execute SQL
400           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLpro1] FROM [GLpro1]"
410                con_Access.Execute SQL
420           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Gltmp] FROM [Gltmp]"
430                con_Access.Execute SQL
440           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLundo] FROM [Glundo]"
450                con_Access.Execute SQL
460           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GSTAC] FROM [GSTAC]"
470                con_Access.Execute SQL
480           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[gstpro] FROM [gstpro]"
490                con_Access.Execute SQL
500           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[INFACE] FROM [INFACE]"
510                con_Access.Execute SQL
520           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[JournalListing] FROM [JournalListing]"
530                con_Access.Execute SQL
540           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[JournalType] FROM [JournalType]"
550                con_Access.Execute SQL
560           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Ledger] FROM [Ledger]"
570                con_Access.Execute SQL
580           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[LedgerGstSales] FROM [LedgerGstSales]"
590                con_Access.Execute SQL
600           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Password] FROM [Password]"
610                con_Access.Execute SQL
620           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tbbak] FROM [tbbak]"
630                con_Access.Execute SQL
640           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tbbaksum] FROM [tbbaksum]"
650                con_Access.Execute SQL
660           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TClisting] FROM [TClisting]"
670                con_Access.Execute SQL
680           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TDlisting] FROM [TDlisting]"
690                con_Access.Execute SQL
700           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[test] FROM [test]"
710                con_Access.Execute SQL
720           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TOClisting] FROM [TOClisting]"
730                 con_Access.Execute SQL
740           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TODlisting] FROM [TODlisting]"
750                 con_Access.Execute SQL
760           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TrialBalance] FROM [TrialBalance]"
770                 con_Access.Execute SQL
780           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TrsfLedger] FROM [TrsfLedger]"
790                 con_Access.Execute SQL
800           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Vcontrol] FROM [Vcontrol]"
810                 con_Access.Execute SQL

          'AH.mdb
820       cmdBar.Caption = "Updating AH.mdb"
830       If Not con_Access Is Nothing Then Set con_Access = Nothing
840       strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AH.mdb;Persist Security Info=False"
850       con_Access.ConnectionString = strConAccess
860           con_Access.Open
870           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ACTYPE] FROM [ACTYPE]"
880                con_Access.Execute SQL
890           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AH] FROM [AH]"
900                con_Access.Execute SQL
910           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GSTIF] FROM [GSTIF]"
920                con_Access.Execute SQL
930           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GstLink] FROM [GstLink]"
940            con_Access.Execute SQL

           'AR.mdb
950       cmdBar.Caption = "Updating AR.mdb"
960       If Not con_Access Is Nothing Then Set con_Access = Nothing
970       strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "AR.mdb;Persist Security Info=False"
980       con_Access.ConnectionString = strConAccess
990           con_Access.Open
1000          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AR] FROM [AR]"
1010               con_Access.Execute SQL
1020          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ARAPL] FROM [ARAPL]"
1030               con_Access.Execute SQL

           'ARTEMP.mdb
          'AuditTrail.mdb
1040      cmdBar.Caption = "Updating AuditTrail.mdb"
1050      If Not con_Access Is Nothing Then Set con_Access = Nothing
1060      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AuditTrail.mdb;Persist Security Info=False"
1070      con_Access.ConnectionString = strConAccess
1080      con_Access.Open
1090          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailBP] FROM [AuditTrailBP]"
1100               con_Access.Execute SQL
1110          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailBR] FROM [AuditTrailBR]"
1120               con_Access.Execute SQL
1130          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailCS] FROM [AuditTrailCS]"
1140                con_Access.Execute SQL
1150          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailGL] FROM [AuditTrailGL]"
1160            con_Access.Execute SQL
1170          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailGRN] FROM [AuditTrailGRN]"
1180            con_Access.Execute SQL
1190          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailINV] FROM [AuditTrailINV]"
1200            con_Access.Execute SQL
1210          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailPJ] FROM [AuditTrailPJ]"
1220            con_Access.Execute SQL
1230          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailSJ] FROM [AuditTrailSJ]"
1240            con_Access.Execute SQL
1250          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailSTK] FROM [AuditTrailSTK]"
1260           con_Access.Execute SQL

          'AuditTrail2.mdb
1270      cmdBar.Caption = "Updating AuditTrail2.mdb"
1280      If Not con_Access Is Nothing Then Set con_Access = Nothing
1290      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AuditTrail2.mdb;Persist Security Info=False"
1300      con_Access.ConnectionString = strConAccess
1310      con_Access.Open
1320        SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailCNP] FROM [AuditTrailCNP]"
1330             con_Access.Execute SQL
1340        SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailCNS] FROM [AuditTrailCNS]"
1350              con_Access.Execute SQL
1360        SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailCO] FROM [AuditTrailCO]"
1370          con_Access.Execute SQL
1380        SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailDO] FROM [AuditTrailDO]"
1390          con_Access.Execute SQL
1400        SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailPO] FROM [AuditTrailPO]"
1410          con_Access.Execute SQL
1420        SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailPR] FROM [AuditTrailPR]"
1430          con_Access.Execute SQL
1440        SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailQUOT] FROM [AuditTrailQUOT]"
1450          con_Access.Execute SQL
1460        SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailSR] FROM [AuditTrailSR]"
1470         con_Access.Execute SQL

          'AuditTrail3.mdb
1480      cmdBar.Caption = "Updating AuditTrail3.mdb"
1490      If Not con_Access Is Nothing Then Set con_Access = Nothing
1500      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AuditTrail3.mdb;Persist Security Info=False"
1510      con_Access.ConnectionString = strConAccess
1520      con_Access.Open
1530          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailDNP] FROM [AuditTrailDNP]"
1540               con_Access.Execute SQL
1550          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailDNS] FROM [AuditTrailDNS]"
1560           con_Access.Execute SQL
          'AuditTrailAF.mdb
1570      cmdBar.Caption = "Updating AuditTrailIAF.mdb"
1580      If Not con_Access Is Nothing Then Set con_Access = Nothing
1590      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AuditTrailIAF.mdb;Persist Security Info=False"
1600      con_Access.ConnectionString = strConAccess
1610      con_Access.Open
1620          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailIAF] FROM [AuditTrailIAF]"
1630               con_Access.Execute SQL
1640          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailIAFap] FROM [AuditTrailIAFap]"
1650               con_Access.Execute SQL
1660          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailIAFar] FROM [AuditTrailIAFar]"
1670           con_Access.Execute SQL

          'BANKAC.mdb
1680      cmdBar.Caption = "Updating BANKAC.mdb"
1690      If Not con_Access Is Nothing Then Set con_Access = Nothing
1700      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\BANKAC.mdb;Persist Security Info=False"
1710      con_Access.ConnectionString = strConAccess
1720      con_Access.Open
1730          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BANKAC] FROM [BANKAC]"
1740           con_Access.Execute SQL

          'BILLOFCOMPONENT.mdb
1750      cmdBar.Caption = "Updating BILLOFCOMPONENT.mdb"
1760      If Not con_Access Is Nothing Then Set con_Access = Nothing
1770      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\BILLOFCOMPONENT.mdb;Persist Security Info=False"
1780      con_Access.ConnectionString = strConAccess
1790      con_Access.Open
1800          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BILLOFCOMPONENT] FROM [BILLOFCOMPONENT]"
1810           con_Access.Execute SQL

          'BILLOFMATERIAL.mdb
1820      cmdBar.Caption = "Updating BILLOFMATERIAL.mdb"
1830      If Not con_Access Is Nothing Then Set con_Access = Nothing
1840      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\BILLOFMATERIAL.mdb;Persist Security Info=False"
1850      con_Access.ConnectionString = strConAccess
1860      con_Access.Open
1870          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BILLOFMATERIAL] FROM [BILLOFMATERIAL]"
1880           con_Access.Execute SQL


          'Br.mdb
1890      cmdBar.Caption = "Updating BR.mdb"
1900      If Not con_Access Is Nothing Then Set con_Access = Nothing
1910      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Br.mdb;Persist Security Info=False"
1920      con_Access.ConnectionString = strConAccess
1930      con_Access.Open
1940          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BR] FROM [BR]"
1950               con_Access.Execute SQL
1960          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BRDATEHEADER] FROM [BRDATEHEADER]"
1970               con_Access.Execute SQL
1980          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BRos] FROM [BRos]"
1990           con_Access.Execute SQL

          'BRAND.mdb
2000      cmdBar.Caption = "Updating BRAND.mdb"
2010      If Not con_Access Is Nothing Then Set con_Access = Nothing
2020      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\BRAND.mdb;Persist Security Info=False"
2030      con_Access.ConnectionString = strConAccess
2040      con_Access.Open
2050          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BRAND] FROM [BRAND]"
2060               con_Access.Execute SQL
2070          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[MODEL] FROM [MODEL]"
2080           con_Access.Execute SQL

          'Budget.mdb
2090      cmdBar.Caption = "Updating BUDGET.mdb"
2100      If Not con_Access Is Nothing Then Set con_Access = Nothing
2110      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Budget.mdb;Persist Security Info=False"
2120      con_Access.ConnectionString = strConAccess
2130      con_Access.Open
2140          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Budget] FROM [Budget]"
2150           con_Access.Execute SQL

          'CASHBILL.mdb
2160      cmdBar.Caption = "Updating CASHBILL.mdb"
2170      If Not con_Access Is Nothing Then Set con_Access = Nothing
2180      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CASHBILL.mdb;Persist Security Info=False"
2190      con_Access.ConnectionString = strConAccess
2200      con_Access.Open
2210          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbINVOICE] FROM [INVOICE]"
2220               con_Access.Execute SQL
2230          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbINVOICEDETAILS] FROM [INVOICEDETAILS]"
2240           con_Access.Execute SQL

          'CASHBILLtmp.mdb
2250      cmdBar.Caption = "Updating CASHBILLTEMP.mdb"
2260      If Not con_Access Is Nothing Then Set con_Access = Nothing
2270      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CASHBILLtmp.mdb;Persist Security Info=False"
2280      con_Access.ConnectionString = strConAccess
2290      con_Access.Open
2300          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbtINVOICE] FROM [INVOICE]"
2310               con_Access.Execute SQL
2320          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbtINVOICEDETAILS] FROM [INVOICEDETAILS]"
2330           con_Access.Execute SQL

          'CATEGORY.mdb
2340      cmdBar.Caption = "Updating CATEGORY.mdb"
2350      If Not con_Access Is Nothing Then Set con_Access = Nothing
2360      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CATEGORY.mdb;Persist Security Info=False"
2370      con_Access.ConnectionString = strConAccess
2380      con_Access.Open
2390          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CATEGORY] FROM [CATEGORY]"
2400           con_Access.Execute SQL

          'CATEGORYSUPER.mdb
2410      cmdBar.Caption = "Updating CATEGORYSUPER.mdb"
2420      If Not con_Access Is Nothing Then Set con_Access = Nothing
2430      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CATEGORYSUPER.mdb;Persist Security Info=False"
2440      con_Access.ConnectionString = strConAccess
2450      con_Access.Open
2460          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CATEGORY1] FROM [CATEGORY1]"
2470               con_Access.Execute SQL
2480          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CATEGORY2] FROM [CATEGORY2]"
2490           con_Access.Execute SQL

          'Cbws.mdb
2500      cmdBar.Caption = "Updating Cbws.mdb"
2510      If Not con_Access Is Nothing Then Set con_Access = Nothing
2520      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Cbws.mdb;Persist Security Info=False"
2530      con_Access.ConnectionString = strConAccess
2540      con_Access.Open
2550          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbwINVOICE] FROM [INVOICE]"
2560               con_Access.Execute SQL
2570          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbwINVOICEDETAILS] FROM [INVOICEDETAILS]"
2580           con_Access.Execute SQL

          'CN.mdb
2590      cmdBar.Caption = "Updating CN.mdb"
2600      If Not con_Access Is Nothing Then Set con_Access = Nothing
2610      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CN.mdb;Persist Security Info=False"
2620      con_Access.ConnectionString = strConAccess
2630      con_Access.Open
2640          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CN] FROM [CN]"
2650           con_Access.Execute SQL

          'COLOR.mdb
2660      cmdBar.Caption = "Updating COLOUR.mdb"
2670      If Not con_Access Is Nothing Then Set con_Access = Nothing
2680      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\COLOR.mdb;Persist Security Info=False"
2690      con_Access.ConnectionString = strConAccess
2700      con_Access.Open
2710          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[COLOR] FROM [COLOR]"
2720               con_Access.Execute SQL
2730          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SIZE] FROM [SIZE]"
2740           con_Access.Execute SQL

          'comment.mdb
2750      cmdBar.Caption = "Updating comment.mdb"
2760      If Not con_Access Is Nothing Then Set con_Access = Nothing
2770      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\comment.mdb;Persist Security Info=False"
2780      con_Access.ConnectionString = strConAccess
2790      con_Access.Open
2800          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[comment] FROM [comment]"
2810           con_Access.Execute SQL

          'CONSGSTOCK.mdb
2820      cmdBar.Caption = "Updating CONSGSTOCK.mdb"
2830      If Not con_Access Is Nothing Then Set con_Access = Nothing
2840      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CONSGSTOCK.mdb;Persist Security Info=False"
2850      con_Access.ConnectionString = strConAccess
2860      con_Access.Open
2870          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CONSGSTOCK] FROM [CONSGSTOCK]"
2880           con_Access.Execute SQL

          'CusLibLabel.mdb
2890      cmdBar.Caption = "Updating CusLibLabel.mdb"
2900      If Not con_Access Is Nothing Then Set con_Access = Nothing
2910      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CusLibLabel.mdb;Persist Security Info=False"
2920      con_Access.ConnectionString = strConAccess
2930      con_Access.Open
2940          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cusLabel] FROM [Label]"
2950           con_Access.Execute SQL

          'CustomerContact.mdb
2960      cmdBar.Caption = "Updating CustomerContact.mdb"
2970      If Not con_Access Is Nothing Then Set con_Access = Nothing
2980      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CustomerContact.mdb;Persist Security Info=False"
2990      con_Access.ConnectionString = strConAccess
3000      con_Access.Open
3010          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CustomerContact] FROM [CustomerContact]"
3020           con_Access.Execute SQL

          'CustomerGROUP.mdb
3030      cmdBar.Caption = "Updating CustomerGROUP.mdb"
3040      If Not con_Access Is Nothing Then Set con_Access = Nothing
3050      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CustomerGROUP.mdb;Persist Security Info=False"
3060      con_Access.ConnectionString = strConAccess
3070      con_Access.Open
3080          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CustomerGroup] FROM [CustomerGroup]"
3090           con_Access.Execute SQL

          'CUSTOMERPRICE.mdb
3100      cmdBar.Caption = "Updating CUSTOMERPRICE.mdb"
3110      If Not con_Access Is Nothing Then Set con_Access = Nothing
3120      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CUSTOMERPRICE.mdb;Persist Security Info=False"
3130      con_Access.ConnectionString = strConAccess
3140      con_Access.Open
3150          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CUSTOMERPRICE] FROM [CUSTOMERPRICE]"
3160           con_Access.Execute SQL

          'DBGRID.mdb
3170      cmdBar.Caption = "Updating DBGRID.mdb"
3180      If Not con_Access Is Nothing Then Set con_Access = Nothing
3190      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DBGRID.mdb;Persist Security Info=False"
3200      con_Access.ConnectionString = strConAccess
3210      con_Access.Open
3220          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[DBGRID] FROM [DBGRID]"
3230           con_Access.Execute SQL


          'DN.mdb
3240      cmdBar.Caption = "Updating DN.mdb"
3250      If Not con_Access Is Nothing Then Set con_Access = Nothing
3260      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DN.mdb;Persist Security Info=False"
3270      con_Access.ConnectionString = strConAccess
3280      con_Access.Open
3290          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[DN] FROM [DN]"
3300           con_Access.Execute SQL

          'DO.mdb
3310      cmdBar.Caption = "Updating DO.mdb"
3320      If Not con_Access Is Nothing Then Set con_Access = Nothing
3330      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DO.mdb;Persist Security Info=False"
3340      con_Access.ConnectionString = strConAccess
3350      con_Access.Open
3360          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[doINVOICE] FROM [DO]"
3370               con_Access.Execute SQL
3380          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[doINVOICEDETAILS] FROM [DODETAILS]"
3390               con_Access.Execute SQL
3400          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[doFILLEDITEMS] FROM [FILLEDITEMS]"
3410           con_Access.Execute SQL

          'DocNo.mdb
3420      cmdBar.Caption = "Updating DocNo.mdb"
3430      If Not con_Access Is Nothing Then Set con_Access = Nothing
3440      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DocNo.mdb;Persist Security Info=False"
3450      con_Access.ConnectionString = strConAccess
3460      con_Access.Open
3470          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noBillRec] FROM [BillRec]"
3480               con_Access.Execute SQL
3490          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCaSaNo] FROM [CaSaNo]"
3500               con_Access.Execute SQL
3510          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCO] FROM [CO]"
3520               con_Access.Execute SQL
3530          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCreditNotePur] FROM [CreditNotePur]"
3540               con_Access.Execute SQL
3550          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCreditNoteSale] FROM [CreditNoteSale]"
3560               con_Access.Execute SQL
3570          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCrSaNo] FROM [CrSaNo]"
3580           con_Access.Execute SQL
3590          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noDebitNotePur] FROM [DebitNotePur]"
3600               con_Access.Execute SQL
3610          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noDebitNoteSale] FROM [DebitNoteSale]"
3620               con_Access.Execute SQL
3630          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noDO] FROM [DO]"
3640           con_Access.Execute SQL
3650          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noGJCash] FROM [GJCash]"
3660               con_Access.Execute SQL
3670          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noGJno] FROM [GJno]"
3680               con_Access.Execute SQL
3690          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noGJPurchase] FROM [GJPurchase]"
3700           con_Access.Execute SQL
3710          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noGJsales] FROM [GJsales]"
3720               con_Access.Execute SQL
3730          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noIssue] FROM [Issue]"
3740               con_Access.Execute SQL
3750          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noPayBill] FROM [PayBill]"
3760           con_Access.Execute SQL
3770          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noPurchaseReturn] FROM [PurchaseReturn]"
3780               con_Access.Execute SQL
3790          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noPurno] FROM [Purno]"
3800               con_Access.Execute SQL
3810          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noQUO] FROM [QUO]"
3820               con_Access.Execute SQL
3830          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noSalesReturn] FROM [SalesReturn]"
3840           con_Access.Execute SQL

          'DOCNUMBER.mdb 'using rstockno (table)
3850      cmdBar.Caption = "Updating DOCNUMBER.mdb"
3860      If Not con_Access Is Nothing Then Set con_Access = Nothing
3870      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DOCNUMBER.mdb;Persist Security Info=False"
3880      con_Access.ConnectionString = strConAccess
3890      con_Access.Open
3900          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rstockno] FROM [rstockno]"
3910           con_Access.Execute SQL

          'DoLabel.mdb
3920      cmdBar.Caption = "Updating DoLabel.mdb"
3930      If Not con_Access Is Nothing Then Set con_Access = Nothing
3940      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DoLabel.mdb;Persist Security Info=False"
3950      con_Access.ConnectionString = strConAccess
3960      con_Access.Open
3970          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[doLabel] FROM [Label]"
3980           con_Access.Execute SQL

          'DOLLAR.mdb
3990      cmdBar.Caption = "Updating DOLLAR.mdb"
4000      If Not con_Access Is Nothing Then Set con_Access = Nothing
4010      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DOLLAR.mdb;Persist Security Info=False"
4020      con_Access.ConnectionString = strConAccess
4030      con_Access.Open
4040          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CURRENCY] FROM [CURRENCY]"
4050               con_Access.Execute SQL
4060          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[DOLLAR] FROM [DOLLAR]"
4070           con_Access.Execute SQL


          'EXCHANGERATE.mdb
4080      cmdBar.Caption = "Updating EXCHANGERATE.mdb"
4090      If Not con_Access Is Nothing Then Set con_Access = Nothing
4100      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\EXCHANGERATE.mdb;Persist Security Info=False"
4110      con_Access.ConnectionString = strConAccess
4120      con_Access.Open
4130          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[EXCHANGERATE] FROM [EXCHANGERATE]"
4140           con_Access.Execute SQL

          'EXCHANGERATEmthly.mdb
4150      cmdBar.Caption = "Updating EXCHANGERATEmthly.mdb"
4160      If Not con_Access Is Nothing Then Set con_Access = Nothing
4170      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\EXCHANGERATEmthly.mdb;Persist Security Info=False"
4180      con_Access.ConnectionString = strConAccess
4190      con_Access.Open
4200          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[EXCHANGERATEmthly] FROM [EXCHANGERATEmthly]"
4210           con_Access.Execute SQL

          'GLFIN.mdb
4220      cmdBar.Caption = "Updating GLFIN.mdb"
4230      If Not con_Access Is Nothing Then Set con_Access = Nothing
4240      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GLFIN.mdb;Persist Security Info=False"
4250      con_Access.ConnectionString = strConAccess
4260      con_Access.Open
4270          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLFIN1] FROM [GLFIN]"
4280           con_Access.Execute SQL

          'GLFIN2.mdb
4290      cmdBar.Caption = "Updating GLFIN2.mdb"
4300      If Not con_Access Is Nothing Then Set con_Access = Nothing
4310      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GLFIN2.mdb;Persist Security Info=False"
4320      con_Access.ConnectionString = strConAccess
4330      con_Access.Open
4340          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLFIN2] FROM [GLFIN]"
4350           con_Access.Execute SQL

          'GLFIN12.mdb
4360      cmdBar.Caption = "Updating GLFIN12.mdb"
4370      If Not con_Access Is Nothing Then Set con_Access = Nothing
4380      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GLFIN12.mdb;Persist Security Info=False"
4390      con_Access.ConnectionString = strConAccess
4400      con_Access.Open
4410          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLFIN12] FROM [GLFIN12]"
4420           con_Access.Execute SQL

          'GLUNDO.mdb
4430      cmdBar.Caption = "Updating GLUNDO.mdb"
4440      If Not con_Access Is Nothing Then Set con_Access = Nothing
4450      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GLUNDO.mdb;Persist Security Info=False"
4460      con_Access.ConnectionString = strConAccess
4470      con_Access.Open
4480          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLHEADUNDO] FROM [GLHEADUNDO]"
4490               con_Access.Execute SQL
4500          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLUNDO2] FROM [GLUNDO]"
4510           con_Access.Execute SQL

          'Graded.mdb
4520      cmdBar.Caption = "Updating Graded.mdb"
4530      If Not con_Access Is Nothing Then Set con_Access = Nothing
4540      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Graded.mdb;Persist Security Info=False"
4550      con_Access.ConnectionString = strConAccess
4560      con_Access.Open
4570          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GradedDETAILS] FROM [GradedDETAILS]"
4580           con_Access.Execute SQL

          'GradedGP.mdb
4590      cmdBar.Caption = "Updating GradedGP.mdb"
4600      If Not con_Access Is Nothing Then Set con_Access = Nothing
4610      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GradedGP.mdb;Persist Security Info=False"
4620      con_Access.ConnectionString = strConAccess
4630      con_Access.Open
4640          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GradedGP] FROM [GradedGP]"
4650           con_Access.Execute SQL

          'grn.mdb
4660      cmdBar.Caption = "Updating GRN.mdb"
4670      If Not con_Access Is Nothing Then Set con_Access = Nothing
4680      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\grn.mdb;Persist Security Info=False"
4690      con_Access.ConnectionString = strConAccess
4700      con_Access.Open
4710          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnFILLEDITEMS] FROM [FILLEDITEMS]"
4720               con_Access.Execute SQL
4730          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnINVOICE] FROM [INVOICE]"
4740                   con_Access.Execute SQL
4750          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnINVOICEDETAILS] FROM [INVOICEDETAILS]"
4760           con_Access.Execute SQL

          'GRNHANDPHONE.mdb
4770      cmdBar.Caption = "Updating GRNHANDPHONE.mdb"
4780      If Not con_Access Is Nothing Then Set con_Access = Nothing
4790      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GRNHANDPHONE.mdb;Persist Security Info=False"
4800      con_Access.ConnectionString = strConAccess
4810      con_Access.Open
4820          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GRNHEADER] FROM [GRNHEADER]"
4830               con_Access.Execute SQL
4840          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GRNITEMS] FROM [GRNITEMS]"
4850           con_Access.Execute SQL

          'GrnLabel.mdb
4860      cmdBar.Caption = "Updating GrnLabel.mdb"
4870      If Not con_Access Is Nothing Then Set con_Access = Nothing
4880      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GrnLabel.mdb;Persist Security Info=False"
4890      con_Access.ConnectionString = strConAccess
4900      con_Access.Open
4910          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnLabel] FROM [Label]"
4920           con_Access.Execute SQL

          'Grnws.mdb
4930      cmdBar.Caption = "Updating Grnws.mdb"
4940      If Not con_Access Is Nothing Then Set con_Access = Nothing
4950      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Grnws.mdb;Persist Security Info=False"
4960      con_Access.ConnectionString = strConAccess
4970      con_Access.Open
4980           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnwFILLEDITEMS] FROM [FILLEDITEMS]"
4990                con_Access.Execute SQL
5000           SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnwINVOICE] FROM [INVOICE]"
5010                    con_Access.Execute SQL
              ' sql ="SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & sDataSource & ";DATABASE=inventory;].[grnwINVOICEDETAILS] FROM [INVOCIEDETAILS]"
              '  con_Access.Execute Sql

          'IMEI.mdb
5020      cmdBar.Caption = "Updating IMEI.mdb"
5030      If Not con_Access Is Nothing Then Set con_Access = Nothing
5040      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\IMEI.mdb;Persist Security Info=False"
5050      con_Access.ConnectionString = strConAccess
5060      con_Access.Open
5070          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[IMEI] FROM [IMEI]"
5080           con_Access.Execute SQL

          'InvLabel.mdb
5090      cmdBar.Caption = "Updating InvLabel.mdb"
5100      If Not con_Access Is Nothing Then Set con_Access = Nothing
5110      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\InvLabel.mdb;Persist Security Info=False"
5120      con_Access.ConnectionString = strConAccess
5130      con_Access.Open
5140          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invLabel] FROM [Label]"
5150           con_Access.Execute SQL

          'INVOICE.mdb
5160      cmdBar.Caption = "Updating INVOICE.mdb"
5170      If Not con_Access Is Nothing Then Set con_Access = Nothing
5180      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\INVOICE.mdb;Persist Security Info=False"
5190      con_Access.ConnectionString = strConAccess
5200      con_Access.Open
5210          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invINVOICE] FROM [INVOICE]"
5220               con_Access.Execute SQL
5230          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invINVOICEDETAILS] FROM [INVOICEDETAILS]"
5240           con_Access.Execute SQL

          'INVTEMP.mdb
5250      cmdBar.Caption = "Updating INVTEMP.mdb"
5260      If Not con_Access Is Nothing Then Set con_Access = Nothing
5270      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\INVTEMP.mdb;Persist Security Info=False"
5280      con_Access.ConnectionString = strConAccess
5290      con_Access.Open
5300          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invtINVOICE] FROM [INVOICE]"
5310               con_Access.Execute SQL
5320          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invtINVOICEDETAILS] FROM [INVOICEDETAILS]"
5330           con_Access.Execute SQL

          'invws.mdb


          'Issue.mdb
5340      cmdBar.Caption = "Updating Issue.mdb"
5350      If Not con_Access Is Nothing Then Set con_Access = Nothing
5360      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Issue.mdb;Persist Security Info=False"
5370      con_Access.ConnectionString = strConAccess
5380      con_Access.Open
5390          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[isINVOICE] FROM [INVOICE]"
5400               con_Access.Execute SQL
5410          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[isINVOICEDETAILS] FROM [INVOICEDETAILS]"
5420           con_Access.Execute SQL

          'LabelBS.mdb
5430      cmdBar.Caption = "Updating LabelBS.mdb"
5440      If Not con_Access Is Nothing Then Set con_Access = Nothing
5450      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\LabelBS.mdb;Persist Security Info=False"
5460      con_Access.ConnectionString = strConAccess
5470      con_Access.Open
5480          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[LabelBS] FROM [LabelBS]"
5490           con_Access.Execute SQL

          'LabelPL.mdb
5500      cmdBar.Caption = "Updating LabelPL.mdb"
5510      If Not con_Access Is Nothing Then Set con_Access = Nothing
5520      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\LabelPL.mdb;Persist Security Info=False"
5530      con_Access.ConnectionString = strConAccess
5540      con_Access.Open
5550          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[LabelPL] FROM [LabelPL]"
5560           con_Access.Execute SQL

          'lic.mdb
5570      cmdBar.Caption = "Updating lic.mdb"
5580      If Not con_Access Is Nothing Then Set con_Access = Nothing
5590      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\lic.mdb;Persist Security Info=False"
5600      con_Access.ConnectionString = strConAccess
5610      con_Access.Open
5620          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lic] FROM [lic]"
5630           con_Access.Execute SQL

          'lock.mdb
5640      cmdBar.Caption = "Updating LOCK.mdb"
5650      If Not con_Access Is Nothing Then Set con_Access = Nothing
5660      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\lock.mdb;Persist Security Info=False"
5670      con_Access.ConnectionString = strConAccess
5680      con_Access.Open
5690          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[LOCK] FROM [LOCK]"
5700           con_Access.Execute SQL

          'LPPRICE.mdb
5710      cmdBar.Caption = "Updating LPPRICE.mdb"
5720      If Not con_Access Is Nothing Then Set con_Access = Nothing
5730      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\LPPRICE.mdb;Persist Security Info=False"
5740      con_Access.ConnectionString = strConAccess
5750      con_Access.Open
5760          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lpCUSTOMER] FROM [CUSTOMER]"
5770               con_Access.Execute SQL
5780          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lpPRICE] FROM [LPPRICE]"
5790           con_Access.Execute SQL

          'LSPRICE.mdb
5800      cmdBar.Caption = "Updating LSPRICE.mdb"
5810      If Not con_Access Is Nothing Then Set con_Access = Nothing
5820      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\LSPRICE.mdb;Persist Security Info=False"
5830      con_Access.ConnectionString = strConAccess
5840      con_Access.Open
5850          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lsCUSTOMER] FROM [CUSTOMER]"
5860               con_Access.Execute SQL
5870          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lsPRICE] FROM [LSPRICE]"
5880           con_Access.Execute SQL

          'MP.mdb
5890      cmdBar.Caption = "Updating MP.mdb"
5900      If Not con_Access Is Nothing Then Set con_Access = Nothing
5910      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\MP.mdb;Persist Security Info=False"
5920      con_Access.ConnectionString = strConAccess
5930      con_Access.Open
5940          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[MP] FROM [MP]"
5950               con_Access.Execute SQL
5960          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[MPITEMS] FROM [MPITEMS]"
5970           con_Access.Execute SQL

          'MTHPYT.mdb
5980      cmdBar.Caption = "Updating MTHYT.mdb"
5990      If Not con_Access Is Nothing Then Set con_Access = Nothing
6000      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\MTHPYT.mdb;Persist Security Info=False"
6010      con_Access.ConnectionString = strConAccess
6020      con_Access.Open
6030          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[mthpytGLAGE] FROM [GLAGE]"
6040               con_Access.Execute SQL
6050          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[mthpytGLAGETRSF] FROM [GLAGETRSF]"
6060                   con_Access.Execute SQL
6070          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[MTHPYT] FROM [MTHPYT]"
6080               con_Access.Execute SQL
6090          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[OPENINGBAL] FROM [OPENINGBAL]"
6100           con_Access.Execute SQL

          'PAYMENT.mdb
6110      cmdBar.Caption = "Updating PAYMENT.mdb"
6120      If Not con_Access Is Nothing Then Set con_Access = Nothing
6130      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PAYMENT.mdb;Persist Security Info=False"
6140      con_Access.ConnectionString = strConAccess
6150      con_Access.Open
6160          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PAYMENT] FROM [PAYMENT]"
6170           con_Access.Execute SQL

          'PICKUP.mdb

          'PLANT.mdb
6180      cmdBar.Caption = "Updating PLANT.mdb"
6190      If Not con_Access Is Nothing Then Set con_Access = Nothing
6200      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PLANT.mdb;Persist Security Info=False"
6210      con_Access.ConnectionString = strConAccess
6220      con_Access.Open
6230          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PLANT] FROM [PLANT]"
6240           con_Access.Execute SQL

          'PO.mdb
6250      cmdBar.Caption = "Updating PO.mdb"
6260      If Not con_Access Is Nothing Then Set con_Access = Nothing
6270      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PO.mdb;Persist Security Info=False"
6280      con_Access.ConnectionString = strConAccess
6290      con_Access.Open
6300          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[poFILLEDITEMS] FROM [FILLEDITEMS]"
6310               con_Access.Execute SQL
6320          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[poINVOICE] FROM [INVOICE]"
6330                   con_Access.Execute SQL
6340          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[poINVOICEDETAILS] FROM [INVOICEDETAILS]"
6350           con_Access.Execute SQL

          'PoLabel.mdb
6360      cmdBar.Caption = "Updating POLABEL.mdb"
6370      If Not con_Access Is Nothing Then Set con_Access = Nothing
6380      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PoLabel.mdb;Persist Security Info=False"
6390      con_Access.ConnectionString = strConAccess
6400      con_Access.Open
6410          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[poLabel] FROM [Label]"
6420           con_Access.Execute SQL

          'POSTING.mdb
6430      cmdBar.Caption = "Updating POSTING.mdb"
6440      If Not con_Access Is Nothing Then Set con_Access = Nothing
6450      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\POSTING.mdb;Persist Security Info=False"
6460      con_Access.ConnectionString = strConAccess
6470      con_Access.Open
6480          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[POSTING] FROM [POSTING]"
6490           con_Access.Execute SQL


          'PRICE.mdb
6500      cmdBar.Caption = "Updating PRICE.mdb"
6510      If Not con_Access Is Nothing Then Set con_Access = Nothing
6520      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PRICE.mdb;Persist Security Info=False"
6530      con_Access.ConnectionString = strConAccess
6540      con_Access.Open
6550          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PRICE] FROM [PRICE]"
6560           con_Access.Execute SQL

          'PRICELAST.mdb
6570      cmdBar.Caption = "Updating PRICELAST.mdb"
6580      If Not con_Access Is Nothing Then Set con_Access = Nothing
6590      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PRICELAST.mdb;Persist Security Info=False"
6600      con_Access.ConnectionString = strConAccess
6610      con_Access.Open
6620          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[laPRICE] FROM [PRICE]"
6630           con_Access.Execute SQL

          'PRICELIST.mdb
6640      cmdBar.Caption = "Updating PRICELIST.mdb"
6650      If Not con_Access Is Nothing Then Set con_Access = Nothing
6660      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PRICELIST.mdb;Persist Security Info=False"
6670      con_Access.ConnectionString = strConAccess
6680      con_Access.Open
6690          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PRICELIST] FROM [PRICELIST]"
6700           con_Access.Execute SQL

          'PROBATCH.mdb
6710      cmdBar.Caption = "Updating PROBATCH.mdb"
6720      If Not con_Access Is Nothing Then Set con_Access = Nothing
6730      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PROBATCH.mdb;Persist Security Info=False"
6740      con_Access.ConnectionString = strConAccess
6750      con_Access.Open
6760          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PROBATCH] FROM [PROBATCH]"
6770           con_Access.Execute SQL

          'product.mdb
6780      cmdBar.Caption = "Updating PRODUCT.mdb"
6790      If Not con_Access Is Nothing Then Set con_Access = Nothing
6800      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\product.mdb;Persist Security Info=False"
6810      con_Access.ConnectionString = strConAccess
6820      con_Access.Open
6830          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PRODUCT] FROM [PRODUCT]"
6840           con_Access.Execute SQL

           'PS.mdb
6850      cmdBar.Caption = "Updating PS.mdb"
6860      If Not con_Access Is Nothing Then Set con_Access = Nothing
6870      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PS.mdb;Persist Security Info=False"
6880      con_Access.ConnectionString = strConAccess
6890      con_Access.Open
6900          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PS] FROM [PS]"
6910               con_Access.Execute SQL
6920          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PSDESC] FROM [PSDESC]"
6930           con_Access.Execute SQL


          'PURCHASESRETURN.mdb
6940      cmdBar.Caption = "Updating PURCHASESRETURN.mdb"
6950      If Not con_Access Is Nothing Then Set con_Access = Nothing
6960      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PURCHASESRETURN.mdb;Persist Security Info=False"
6970      con_Access.ConnectionString = strConAccess
6980      con_Access.Open
6990          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[prINVOICE] FROM [INVOICE]"
7000               con_Access.Execute SQL
7010          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[prINVOICEDETAILS] FROM [INVOICEDETAILS]"
7020           con_Access.Execute SQL

          'QuLabel.mdb
7030       cmdBar.Caption = "Updating QuLabel.mdb"
7040      If Not con_Access Is Nothing Then Set con_Access = Nothing
7050      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\QuLabel.mdb;Persist Security Info=False"
7060      con_Access.ConnectionString = strConAccess
7070      con_Access.Open
7080          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[quLabel] FROM [Label]"
7090           con_Access.Execute SQL

          'QUOT.mdb
7100      cmdBar.Caption = "Updating QUOT.mdb"
7110      If Not con_Access Is Nothing Then Set con_Access = Nothing
7120      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\QUOT.mdb;Persist Security Info=False"
7130      con_Access.ConnectionString = strConAccess
7140      con_Access.Open
7150          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[quFILLEDITEMS] FROM [FILLEDITEMS]"
7160               con_Access.Execute SQL
7170          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[quINVOICE] FROM [SALESORDER]"
7180                   con_Access.Execute SQL
7190          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[quINVOICEDETAILS] FROM [SALESORDERDETAILS]"
7200           con_Access.Execute SQL


          'RAWINFO.mdb
7210      cmdBar.Caption = "Updating RAWINFO.mdb"
7220      If Not con_Access Is Nothing Then Set con_Access = Nothing
7230      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\RAWINFO.mdb;Persist Security Info=False"
7240      con_Access.ConnectionString = strConAccess
7250      con_Access.Open
7260          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CAT] FROM [CAT]"
7270               con_Access.Execute SQL
7280          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RAWINFO] FROM [RAWINFO]"
7290           con_Access.Execute SQL

          'RAWSTOCK.mdb
7300      cmdBar.Caption = "Updating RAWSTOCK.mdb"
7310      If Not con_Access Is Nothing Then Set con_Access = Nothing
7320      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\RAWSTOCK.mdb;Persist Security Info=False"
7330      con_Access.ConnectionString = strConAccess
7340      con_Access.Open
7350          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rawBATCHINFO] FROM [BATCHINFO]"
7360               con_Access.Execute SQL
7370          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rawRSTOCKDETAILS] FROM [RSTOCKDETAILS]"
7380                   con_Access.Execute SQL
7390          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rawRSTOCKHEAD] FROM [RSTOCKHEAD]"
7400               con_Access.Execute SQL
7410          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rawRSTOCKLIST] FROM [RSTOCKLIST]"
7420           con_Access.Execute SQL

          'rawstockstatus.mdb
7430      cmdBar.Caption = "Updating rawstockstatus.mdb"
7440      If Not con_Access Is Nothing Then Set con_Access = Nothing
7450      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\rawstockstatus.mdb;Persist Security Info=False"
7460      con_Access.ConnectionString = strConAccess
7470      con_Access.Open
7480          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RAWSTATUS] FROM [RAWSTATUS]"
7490           con_Access.Execute SQL

          'RECEIPT.mdb
7500      cmdBar.Caption = "Updating RECEIPT.mdb"
7510      If Not con_Access Is Nothing Then Set con_Access = Nothing
7520      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\RECEIPT.mdb;Persist Security Info=False"
7530      con_Access.ConnectionString = strConAccess
7540      con_Access.Open
7550          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RECEIPT] FROM [RECEIPT]"
7560           con_Access.Execute SQL

          'REPORTFILE.mdb
7570      cmdBar.Caption = "Updating REPORTFILE.mdb"
7580      If Not con_Access Is Nothing Then Set con_Access = Nothing
7590      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\REPORTFILE.mdb;Persist Security Info=False"
7600      con_Access.ConnectionString = strConAccess
7610      con_Access.Open
7620          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[repDO] FROM [DO]"
7630               con_Access.Execute SQL
7640          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[repINVOICE] FROM [INVOICE]"
7650           con_Access.Execute SQL

          'ROOM.mdb
7660      cmdBar.Caption = "Updating ROOM.mdb"
7670      If Not con_Access Is Nothing Then Set con_Access = Nothing
7680      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\ROOM.mdb;Persist Security Info=False"
7690      con_Access.ConnectionString = strConAccess
7700      con_Access.Open
7710          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ROOM] FROM [ROOM]"
7720           con_Access.Execute SQL

          'rpt.mdb
7730      cmdBar.Caption = "Updating RPT.mdb"
7740      If Not con_Access Is Nothing Then Set con_Access = Nothing
7750      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\rpt.mdb;Persist Security Info=False"
7760      con_Access.ConnectionString = strConAccess
7770      con_Access.Open
'7780          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptClientAc] FROM [ClientAc]"
'7790               con_Access.Execute SQL
'7800          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptClientBankAc] FROM [ClientBankAc]"
'7810                   con_Access.Execute SQL
7820          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptGLAGEtrsf] FROM [GLAGEtrsf]"
7830               con_Access.Execute SQL
7840          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptGLAGETRSFMBM] FROM [GLAGETRSFMBM]"
7850                   con_Access.Execute SQL
7860          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptGLFIN] FROM [GLFIN]"
7870                       con_Access.Execute SQL
7880          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptGSTAC] FROM [GSTAC]"
7890                   con_Access.Execute SQL
7900          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptJournalListing] FROM [JournalListing]"
7910                   con_Access.Execute SQL
7920          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptLedger] FROM [Ledger]"
7930                   con_Access.Execute SQL
'7940          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptLedgerGstSales] FROM [LedgerGstSales]"
'7950                   con_Access.Execute SQL
7960          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptOPENITEMSTAC] FROM [OPENITEMSTAC]"
7970                   con_Access.Execute SQL
7980          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RPT] FROM [RPT]"
7990                   con_Access.Execute SQL
                con_Access.Execute SQL
8000          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RPTHEADER] FROM [RPTHEADER]"
8010                   con_Access.Execute SQL
8020          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTClisting] FROM [TClisting]"
8030                   con_Access.Execute SQL
8040          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTDlisting] FROM [Tdlisting]"
8050                   con_Access.Execute SQL
8060          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTOClisting] FROM [Toclisting]"
8070                   con_Access.Execute SQL
8080          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTODlisting] FROM [TODlisting]"
8090                   con_Access.Execute SQL
8100          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTrialBalance] FROM [TrialBalance]"
8110           con_Access.Execute SQL

          'RS.MDB
8120      cmdBar.Caption = "Updating RS.mdb"
8130      If Not con_Access Is Nothing Then Set con_Access = Nothing
8140      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\rs.mdb;Persist Security Info=False"
8150      con_Access.ConnectionString = strConAccess
8160      con_Access.Open
8170          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RS] FROM [RS]"
8180           con_Access.Execute SQL

          'SALESORDER.mdb
8190      cmdBar.Caption = "Updating SALESORDER.mdb"
8200      If Not con_Access Is Nothing Then Set con_Access = Nothing
8210      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SALESORDER.mdb;Persist Security Info=False"
8220      con_Access.ConnectionString = strConAccess
8230      con_Access.Open
8240          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soFILLEDITEMS] FROM [FILLEDITEMS]"
8250               con_Access.Execute SQL
8260          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soINVOICE] FROM [SALESORDER]"
8270                   con_Access.Execute SQL
8280          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soINVOICEDETAILS] FROM [SALESORDERDETAILS]"
8290           con_Access.Execute SQL

          'SalesRep.mdb
8300      cmdBar.Caption = "Updating SalesRep.mdb"
8310      If Not con_Access Is Nothing Then Set con_Access = Nothing
8320      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SALESREP.mdb;Persist Security Info=False"
8330      con_Access.ConnectionString = strConAccess
8340      con_Access.Open
8350          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SALESREP] FROM [SALESREP]"
8360           con_Access.Execute SQL

          'SALESRETURN.mdb
8370      cmdBar.Caption = "Updating SALESRETURN.mdb"
8380      If Not con_Access Is Nothing Then Set con_Access = Nothing
8390      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SALESRETURN.mdb;Persist Security Info=False"
8400      con_Access.ConnectionString = strConAccess
8410      con_Access.Open
8420          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[srINVOICE] FROM [INVOICE]"
8430               con_Access.Execute SQL
8440          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[srINVOICEDETAILS] FROM [INVOICEDETAILS]"
8450           con_Access.Execute SQL

          'SERVICECARD.mdb
8460      cmdBar.Caption = "Updating SERVICECARD.mdb"
8470      If Not con_Access Is Nothing Then Set con_Access = Nothing
8480      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SERVICECARD.mdb;Persist Security Info=False"
8490      con_Access.ConnectionString = strConAccess
8500      con_Access.Open
8510          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICECARD] FROM [SERVICECARD]"
8520               con_Access.Execute SQL
8530          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICECARDITEM] FROM [SERVICECARDITEM]"
8540                   con_Access.Execute SQL
8550          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICERECORD] FROM [SERVICERECORD]"
8560           con_Access.Execute SQL

          'SERVICEINFO.mdb
8570      cmdBar.Caption = "Updating SERVICEINFO.mdb"
8580      If Not con_Access Is Nothing Then Set con_Access = Nothing
8590      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SERVICEINFO.mdb;Persist Security Info=False"
8600      con_Access.ConnectionString = strConAccess
8610      con_Access.Open
8620          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICEINFO] FROM [SERVICEINFO]"
8630           con_Access.Execute SQL

          'SERVICEINTERVAL.mdb
8640      cmdBar.Caption = "Updating SERVICEINTERVAL.mdb"
8650      If Not con_Access Is Nothing Then Set con_Access = Nothing
8660      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SERVICEINTERVAL.mdb;Persist Security Info=False"
8670      con_Access.ConnectionString = strConAccess
8680      con_Access.Open
8690          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICEINTERVAL] FROM [SERVICEINTERVAL]"
8700           con_Access.Execute SQL

          'SERVICESTATUS.mdb
8710      cmdBar.Caption = "Updating SERVICESTATUS.mdb"
8720      If Not con_Access Is Nothing Then Set con_Access = Nothing
8730      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SERVICESTATUS.mdb;Persist Security Info=False"
8740      con_Access.ConnectionString = strConAccess
8750      con_Access.Open
8760          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICESTATUS] FROM [SERVICESTATUS]"
8770           con_Access.Execute SQL

          'shan.mdb
8780      cmdBar.Caption = "Updating SHAN.mdb"
8790      If Not con_Access Is Nothing Then Set con_Access = Nothing
8800      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\shan.mdb;Persist Security Info=False"
8810      con_Access.ConnectionString = strConAccess
8820      con_Access.Open
8830          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noINV] FROM [table1]"
8840           con_Access.Execute SQL

          'SNTRAN.mdb
8850      cmdBar.Caption = "Updating SNTRAN.mdb"
8860      If Not con_Access Is Nothing Then Set con_Access = Nothing
8870      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SNTRAN.mdb;Persist Security Info=False"
8880      con_Access.ConnectionString = strConAccess
8890      con_Access.Open
8900          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[snCB] FROM [CB]"
8910               con_Access.Execute SQL
8920          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[snDO] FROM [DO]"
8930                   con_Access.Execute SQL
8940          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[snINVOICE] FROM [INVOICE]"
8950           con_Access.Execute SQL

          'SOENQUIRY.mdb
8960      cmdBar.Caption = "Updating SOENQUIRY.mdb"
8970      If Not con_Access Is Nothing Then Set con_Access = Nothing
8980      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SOENQUIRY.mdb;Persist Security Info=False"
8990      con_Access.ConnectionString = strConAccess
9000      con_Access.Open
9010          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soeINVOICE] FROM [SALESORDER]"
9020           con_Access.Execute SQL

          'SoLabel.mdb
9030      cmdBar.Caption = "Updating SoLabel.mdb"
9040      If Not con_Access Is Nothing Then Set con_Access = Nothing
9050      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SoLabel.mdb;Persist Security Info=False"
9060      con_Access.ConnectionString = strConAccess
9070      con_Access.Open
9080          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soLabel] FROM [Label]"
9090           con_Access.Execute SQL
          'SS.mdb
9100      cmdBar.Caption = "Updating SS.mdb"
9110      If Not con_Access Is Nothing Then Set con_Access = Nothing
9120      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SS.mdb;Persist Security Info=False"
9130      con_Access.ConnectionString = strConAccess
9140      con_Access.Open
9150          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SS] FROM [SS]"
9160           con_Access.Execute SQL

          'SSADMIN.mdb
9170      cmdBar.Caption = "Updating SSADMIN.mdb"
9180      If Not con_Access Is Nothing Then Set con_Access = Nothing
9190      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SSADMIN.mdb;Persist Security Info=False"
9200      con_Access.ConnectionString = strConAccess
9210      con_Access.Open
9220          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SSADMIN] FROM [SSADMIN]"
9230           con_Access.Execute SQL

          'STAFF.mdb
9240      cmdBar.Caption = "Updating SSTAFF.mdb"
9250      If Not con_Access Is Nothing Then Set con_Access = Nothing
9260      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STAFF.mdb;Persist Security Info=False"
9270      con_Access.ConnectionString = strConAccess
9280      con_Access.Open
9290          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STAFF] FROM [STAFF]"
9300           con_Access.Execute SQL

          'STATEMENTGROUP.mdb
9310      cmdBar.Caption = "Updating STATEMENTGROUP.mdb"
9320      If Not con_Access Is Nothing Then Set con_Access = Nothing
9330      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STATEMENTGROUP.mdb;Persist Security Info=False"
9340      con_Access.ConnectionString = strConAccess
9350      con_Access.Open
9360          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STATEMENTGROUP] FROM [STATEMENTGROUP]"
9370           con_Access.Execute SQL

          'STATETYPE.mdb
9380      cmdBar.Caption = "Updating STATETYPE.mdb"
9390      If Not con_Access Is Nothing Then Set con_Access = Nothing
9400      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STATETYPE.mdb;Persist Security Info=False"
9410      con_Access.ConnectionString = strConAccess
9420      con_Access.Open
9430          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STATETYPE] FROM [STATETYPE]"
9440           con_Access.Execute SQL

          'STKprice.mdb
9450      cmdBar.Caption = "Updating STKprice.mdb"
9460      If Not con_Access Is Nothing Then Set con_Access = Nothing
9470      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STKprice.mdb;Persist Security Info=False"
9480      con_Access.ConnectionString = strConAccess
9490      con_Access.Open
9500          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STKprice] FROM [STKPrice]"
9510           con_Access.Execute SQL

          'STOCK.mdb
9520      cmdBar.Caption = "Updating STOCK.mdb"
9530      If Not con_Access Is Nothing Then Set con_Access = Nothing
9540      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCK.mdb;Persist Security Info=False"
9550      con_Access.ConnectionString = strConAccess
9560      con_Access.Open
9570          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[stkBATCHINFO] FROM [BATCHINFO]"
9580               con_Access.Execute SQL
9590          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[REPORTDATE] FROM [REPORTDATE]"
9600                   con_Access.Execute SQL
9610          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STOCKDETAILS] FROM [STOCKDETAILS]"
9620                   con_Access.Execute SQL
9630          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STOCKHEAD] FROM [STOCKHEAD]"
9640                   con_Access.Execute SQL
9650          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STOCKLIST] FROM [STOCKLIST]"
9660           con_Access.Execute SQL

          'STOCKbf.mdb
9670      cmdBar.Caption = "Updating STOCKBF.mdb"
9680      If Not con_Access Is Nothing Then Set con_Access = Nothing
9690      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKbf.mdb;Persist Security Info=False"
9700      con_Access.ConnectionString = strConAccess
9710      con_Access.Open
9720          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfBATCHINFO] FROM [BATCHINFO]"
9730               con_Access.Execute SQL
9740          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfREPORTDATE] FROM [REPORTDATE]"
9750                   con_Access.Execute SQL
9760          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfSTOCKDETAILS] FROM [STOCKDETAILS]"
9770                   con_Access.Execute SQL
9780          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfSTOCKHEAD] FROM [STOCKHEAD]"
9790                   con_Access.Execute SQL
9800          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfSTOCKLIST] FROM [STOCKLIST]"
9810           con_Access.Execute SQL

          'STOCKbfTemp.mdb
9820      cmdBar.Caption = "Updating SSTOCKbfTemp.mdb"
9830      If Not con_Access Is Nothing Then Set con_Access = Nothing
9840      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKbfTemp.mdb;Persist Security Info=False"
9850      con_Access.ConnectionString = strConAccess
9860      con_Access.Open
9870          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpBATCHINFO] FROM [BATCHINFO]"
9880               con_Access.Execute SQL
9890          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpREPORTDATE] FROM [REPORTDATE]"
9900                   con_Access.Execute SQL
9910          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpSTOCKDETAILS] FROM [STOCKDETAILS]"
9920                   con_Access.Execute SQL
9930          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpSTOCKHEAD] FROM [STOCKHEAD]"
9940                   con_Access.Execute SQL
9950          SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpSTOCKLISTS] FROM [STOCKLIST]"
9960           con_Access.Execute SQL

          'STOCKIST.mdb
9970      cmdBar.Caption = "Updating SSTOCKIST.mdb"
9980      If Not con_Access Is Nothing Then Set con_Access = Nothing
9990      strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKIST.mdb;Persist Security Info=False"
10000     con_Access.ConnectionString = strConAccess
10010     con_Access.Open
10020         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STOCKIST] FROM [STOCKIST]"
10030          con_Access.Execute SQL

          'STOCKMDBbatchInfo.mdb
10040     cmdBar.Caption = "Updating SSTOCKBATCHINFO.mdb"
10050     If Not con_Access Is Nothing Then Set con_Access = Nothing
10060     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKMDBbatchInfo.mdb;Persist Security Info=False"
10070     con_Access.ConnectionString = strConAccess
10080     con_Access.Open
10090         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BATCHINFO] FROM [BATCHINFO]"
10100          con_Access.Execute SQL

          'StockMthly.mdb
10110     cmdBar.Caption = "Updating SSTOCKMTHLY.mdb"
10120     If Not con_Access Is Nothing Then Set con_Access = Nothing
10130     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\StockMthly.mdb;Persist Security Info=False"
10140     con_Access.ConnectionString = strConAccess
10150     con_Access.Open
10160         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[StockMthly] FROM [StockMthly]"
10170          con_Access.Execute SQL

          'STOCKOUT.mdb
10180     cmdBar.Caption = "Updating SSTOCKOUT.mdb"
10190     If Not con_Access Is Nothing Then Set con_Access = Nothing
10200     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKOUT.mdb;Persist Security Info=False"
10210     con_Access.ConnectionString = strConAccess
10220     con_Access.Open
10230         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[stoINVOICE] FROM [INVOICE]"
10240              con_Access.Execute SQL
10250         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[stoINVOICEDETAILS] FROM [INVOICEDETAILS]"
10260          con_Access.Execute SQL

          'SupLibLabel.mdb
10270     cmdBar.Caption = "Updating SupLibLabel.mdb"
10280     If Not con_Access Is Nothing Then Set con_Access = Nothing
10290     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SupLibLabel.mdb;Persist Security Info=False"
10300     con_Access.ConnectionString = strConAccess
10310     con_Access.Open
10320         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[supLabel] FROM [Label]"
10330          con_Access.Execute SQL

          'SYSINFO.mdb
10340     cmdBar.Caption = "Updating SYSINFO.mdb"
10350     If Not con_Access Is Nothing Then Set con_Access = Nothing
10360     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SYSINFO.mdb;Persist Security Info=False"
10370     con_Access.ConnectionString = strConAccess
10380     con_Access.Open
10390         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CONTROL] FROM [CONTROL]"
10400              con_Access.Execute SQL
10410         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAP] FROM [GLAP]"
10420                  con_Access.Execute SQL
10430         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLPASS] FROM [GLPASS]"
10440          con_Access.Execute SQL

          'TAXCODE.mdb
10450     cmdBar.Caption = "Updating TAXCODE.mdb"
10460     If Not con_Access Is Nothing Then Set con_Access = Nothing
10470     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\TAXCODE.mdb;Persist Security Info=False"
10480     con_Access.ConnectionString = strConAccess
10490     con_Access.Open
10500         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TAXCODE] FROM [TAXCODE]"
10510          con_Access.Execute SQL

          'UDF.mdb
10520     cmdBar.Caption = "Updating UDF.mdb"
10530     If Not con_Access Is Nothing Then Set con_Access = Nothing
10540     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\UDF.mdb;Persist Security Info=False"
10550     con_Access.ConnectionString = strConAccess
10560     con_Access.Open
10570         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfCASHBILL] FROM [CASHBILL]"
10580              con_Access.Execute SQL
10590         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfDO] FROM [DO]"
10600                  con_Access.Execute SQL
10610         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfFORMULA] FROM [FORMULA]"
10620                  con_Access.Execute SQL
10630         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfGRN] FROM [GRN]"
10640                  con_Access.Execute SQL
10650         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfINVOICE] FROM [INVOICE]"
10660                con_Access.Execute SQL
10670         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfPO] FROM [PO]"
10680                  con_Access.Execute SQL
10690         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfPURCHASESRETURN] FROM [PURCHASESRETURN]"
10700                  con_Access.Execute SQL
10710         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfQUOT] FROM [QUOT]"
10720                  con_Access.Execute SQL
10730         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfSALESORDER] FROM [SALESORDER]"
10740                    con_Access.Execute SQL
10750         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfSALESRETURN] FROM [SALESRETURN]"
10760          con_Access.Execute SQL

          'USERPT.mdb
10770     cmdBar.Caption = "Updating USERPT.mdb"
10780     If Not con_Access Is Nothing Then Set con_Access = Nothing
10790     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\USERPT.mdb;Persist Security Info=False"
10800     con_Access.ConnectionString = strConAccess
10810     con_Access.Open
10820         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[USERPT] FROM [USERPT]"
10830          con_Access.Execute SQL

          'WAREHOUSE.mdb
10840     cmdBar.Caption = "Updating WAREHOUSE.mdb"
10850     If Not con_Access Is Nothing Then Set con_Access = Nothing
10860     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\WAREHOUSE.mdb;Persist Security Info=False"
10870     con_Access.ConnectionString = strConAccess
10880     con_Access.Open
10890         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[WAREHOUSE] FROM [WAREHOUSE]"
10900          con_Access.Execute SQL

          'wc.mdb
10910     cmdBar.Caption = "Updating WC.mdb"
10920     If Not con_Access Is Nothing Then Set con_Access = Nothing
10930     strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\wc.mdb;Persist Security Info=False"
10940     con_Access.ConnectionString = strConAccess
10950     con_Access.Open
10960         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SN] FROM [SN]"
10970              con_Access.Execute SQL
10980         SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[WC] FROM [WC]"
10990          con_Access.Execute SQL

11000     MsgBox "Updated server"
11010     cmdBar.Visible = False
11020     Screen.MousePointer = vbDefault

End Sub

解决方案

Take off the line numbers.

(This bit added because the solution is too short otherwise)

Hi Yes remove line numbers and Check if condition,it show error conversion in telerik convertor

If Not con_Access Is Nothing Then Set con_Access = Nothing

So change if condition in vb code

If Not con_Access Is Nothing Then Set con_Access = Nothing

to

If Not con_Access Is Nothing Then
 con_Access = Nothing
End IF

and then convert ur code.

Note :in all if condition need to change in vb code and then convert to C#

You can always convert VB.NET to C# and visa versa automatically. You can get especially good quality and comprehensive translation using open-source ILSpy. Please see my past answer: Code Interpretation, C# to VB.NET[^].

—SA

这篇关于将vb转换为c＃时出错的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！