Dim strconnectionstring,objconnection,objrecordset,objcommand,strsql,mystr'ado connection

       strconnectionstring="DSN=bos_db;uid=sa;pwd=bosch6000;"

       Set objconnection = CreateObject("ADODB.Connection")

              objconnection.ConnectionString = strconnectionstring

              objconnection.Open

       Set objrecordset=CreateObject("ADODB.Recordset")

       Set objcommand=CreateObject("ADODB.Command")

       objcommand.ActiveConnection=objconnection

构造sql语句，我文件中写的是不同条件下构造不同的的sql语句，你主要关心的是以下三行代码。

       sql=mystr&filter_con&myorder

       objcommand.CommandText=strsql

       Set objrecordset=objcommand.Execute