sqlserver2000的sp 用vb6中的Dao访问

可以但要配置ODBC 数据源 (32位)
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