notes的数据没有存入SQL中，请问应该怎样解决呢？

[yyi23]

我想用下面的代码将notes的数据存入SQL中，数据源是找到了，可是在SQL中始终得不到数据，不知道是哪里错了！
用LotusScript调试器调试也没有报错！“test”是我在SQL中创建的一个表单，fil1、fil2、fil3是notes中的域。
请问应该怎样解决呢？
Uselsx "*LSXODBC"

Sub Initialize
Dim session As notesSession
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim doc As notesdocument

Set session=New notesSession
Set doc=session.documentcontext
con.Disconnect

If con.connectTo("数据源名","用户","密码") Then
Set qry.connection=con
qry.sql="select * from test"
Set result.query=qry
result.execute
result.lastrow
result.addrow
aa=Trim(doc.fil1(0))
Call result.SetValue(1,Trim(doc.fil1(0)))
Call result.setvalue(2,Trim(doc.fil2(0)))
Call result.setvalue(3,Trim(doc.fil3(0)))

result.UpdateRow
result.Close(DB_CLOSE)
con.Disconnect
Messagebox("添加成功！")
Call doc.save(True,False)
Else
Messagebox("无法连接数据库，请检查！")
End If
End Sub