lotus代理(ADO拿数据)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim conn As Variant
Dim rs As Variant
Dim rsid As Long
Set db=session.CurrentDatabase

Const ConnAdminS$ = "driver={sqlserver};server=192.168.0.171,1450;UID=notesdev;PWD=developer;database=AppNet"

Set conn = CreateObject("ADODB.Connection")
conn.open ConnAdminS$
Call conn.BeginTrans()

Set rs=createobject("adodb.recordset")
defaultQuery="select distinct rsid from dbo.RecordSet where channelid='115' and status='SENDING'"
rs.open defaultQuery , conn


Dim tmpDoc As NotesDocument
Set tmpDoc = db.CreateDocument
tmpDoc.form = "PurchaseOrder"
tmpDoc.rsid = rs.FIELDS("rsid").value
rsid=tmpDoc.rsid(0)

Call rs.close()
Set rs= Nothing

Call conn.Committrans()
Call conn.close()
Set conn = Nothing
Exit Sub

 各位请教个问题..为什么上面段代理自动运行的时候就在红色字体处提示"Type mismatch",真让我无解呀?能否指教指教!手动运行确很顺利! --------------------编程问答-------------------- 服务器权限设置问题，你无权运行，去后台设置一下即可 --------------------编程问答-------------------- 就是呀，权限不够吧 --------------------编程问答-------------------- 代理属性，安全性，选择2或者3看看

补充：企业软件 ,  Lotus