请教！

Question

Set  qdserver  =  dbserver.CreateQueryDef(  "  ")  
           
                     
       strSQL  =    "EXEC  [SP]  @CODE_IN  =  'BATCHEXCHANGE'  "  
       With  qdserver  
             .Connect  =    "odbc;driver={SQL  Server};database=datqbase;server=servername;pwd=123  "  
             .ReturnsRecords  =  True  
             .SQL  =  strSQL  
             Set  rsBatch  =  .OpenRecordset(dbOpenSnapshot,dbSQLPassThrough)  
       End  With

Answer 1

vb6中的Dao访问
Set  qdserver  =  dbserver.CreateQueryDef("  ")  
strSQL="EXEC  [SP]  @CODE_IN='BATCHEXCHANGE' "  
With  qdserver  
     .Connect="odbc;driver={SQL  Server};database=库名;server=服务名;pwd=密码"  
     .ReturnsRecords=True  
     .SQL=strSQL  
   Set rsBatch= .OpenRecordset(dbOpenSnapshot,dbSQLPassThrough)  
End  With