VBA基于ADO程序，rs.open出现运行时错误‘3001’

Sub SetRowNo()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fd As ADODB.Field
Dim fd1 As ADODB.Field
Dim strSQL As String
Dim temp As String
Dim val As Integer

temp = "000"
val = 1

Set cn = CurrentProject.Connection

strSQL = "Select rowNo,DEH from DECJB3"
rs.Open strSQL, cn, adOpenDynamic, adLockOpetimistic, adCmdText


Set fd = rs.Fields("rowNo")
Set fd1 = rs.Fields("DEH")
      
Do While Not rs.EOF
        If fd1 <> temp Then
        fd = 1
        val = fd
        temp = fd1
        Else
        fd = val + 1
        val = fd
        temp = fd1
        End If
      
        rs.Update
        rs.MoveNext
    Loop

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Sub

程序主要更能使更新数据表DECJB3中的rowNo字段值，更新依据该表中另一个字段DEH的值，现在程序运行到rs.open一行出现错误。求各位大神门的解释，感激万分！！！