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

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

你关闭后打开，Text1里的数据更新了吗？
还有，你打开byq1表看看，里面的数据是什么

变了的
数据库里也是变了的点打印还是上次的数据找不到原因了

已解决