看看究竟是哪里的错阿!!
Dim s As String
Dim b As String
s = Data1.Recordset.Bookmark
Data1.Recordset.Index = "学号"
Data1.Recordset.Seek "=", Text1.Text
b = Data1.Recordset.Bookmark
If Data1.Recordset.NoMatch Then
Data1.Recordset.Bookmark = s
Else
Data1.Recordset.Bookmark = b
End If