有点问题帮调试一下下面的程序

[lemon2000]

有点问题帮调试一下下面的程序
Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim rs2 As Recordset
Private Sub 查询_Click()
Dim line As String
Set rs = db.OpenRecordset("select * from users")
jump = rs!packnum
While Not rs.EOF
line = rs!upline
While Not line = 1278
Set rs1 = db.OpenRecordset("select * from users where packnum=" & line)
'Text1.Text = line
'Text2.Text = rs!packnum
line = rs1!upline
jump = rs1!packnum & "," & jump
Text1.Text = jump
Wend
With rs
.Edit
!treeid = jump
.Update ‘运行到这里的时候出现 实时错误"3709" 所有记录总均未找到搜索关键字
.MoveNext
End With
Wend
End Sub

Private Sub form_load()
Set db = OpenDatabase(App.Path & "\100.mdb")
End Sub

[qingming81]

While Not line = 1278可能应改为
While line <> 1278

下一段：
With rs
.Edit
!treeid = jump
.Update ‘运行到这里的时候出现 实时错误"3709" 所有记录总均未找到搜索关键字
.MoveNext
End With

改为
With rs
.fields("treeid") = jump
.Update
.MoveNext
End With

[qingming81]

While Not line = 1278
这个循环始终有问题，

While Not line = 1278
Set rs1 = db.OpenRecordset("select * from users where packnum=" & line)
'Text1.Text = line
'Text2.Text = rs!packnum
line = rs1!upline '显然，如果rs1!upline中没有一个是1278，就会陷入死循环。
jump = rs1!packnum & "," & jump　　　　　　　'不断的增加jump的值是什么意思？
Text1.Text = jump
Wend

[lemon2000]

谢谢！！