请问这个错误可能由什么原因引起?
dim priKey as Long
Dim conn As New Connection

conn.ConnectionString = "Driver={PostgreSQL Unicode};Server=127.0.0.1;UID=sa;PWD=sa;Database=postgres"

conn.CursorLocation = adUseClient
conn.ConnectionTimeout = 5
conn.Open

rs1.Open "select * from abc where per_num is not null", conn, adOpenStatic, adLockOptimistic, adCmdText

  Do Until rs1.EOF
    rs2.Open "select pri_key from xyz where name='www'",conn, adOpenStatic,             adLockOptimistic, adCmdText
    If Not rs2.EOF Then
      priKey = rs2("pri_key")
      rs1("num") = priKey
    End If

    '关闭2.
    Call closeRecordset(rs2)

    rs1.MoveNext
  Loop

执行rs1.MoveNext时报上述错误.