怎么无法更新数据库啊

Private Sub Command9_Click()
Set RS = New ADODB.Recordset '新建一个recordset
RS.CursorType = adOpenStatic
RS.CursorLocation = adUseClient
RS.LockType = adLockPessimistic
RS.Open "SELECT * FROM byq1 ", Con
RS.AddNew
With RS
.Fields("zzg1AB") = Text1(0).Text
......
.Update
End With



now_add = Not now_add
MsgBox ("确定打印吗")
DataReport.DataMember = "Command2"
DataReport.Show

While Not RS.EOF()
RS.Delete
RS.MoveNext
Wend
RS.Close
End Sub

关闭打印页后选下一个数据怎么还是上个数据啊大老们帮忙看下。