那就不能用18楼的方法了, oConnection = CreateObject("adodb.connection") &&建立连接对象 With oConnection .ConnectionString = ''Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:\;Extended Properties=dbase 5.0;Persist Security Info=False';' .Open ENDWITH oConnection.EXECUTE 'selet * into ware FROM ware in [ODBC][ODBC;Driver=SQL Server;UID=sa;PWD=;Server=bjg;DataBase=sibo;]'