2017扶老人被讹事件:实时错误91；对象变量或with块变量未设置

Dim Bedit As Boolean
Dim Badd As Boolean
Dim RecNum As Integer '记录总个数'
Dim myBookmark As Variant
Private Conn As ADODB.Connection
Private Rs As ADODB.Recordset
Private Sub FillText()
txtName.Text = Rs.Fields("studentname") “问题所在”
txtNo.Text = Rs.Fields("studentnumber")
txtScore.Text = Rs.Fields("studentscore")
txtSex.Text = Rs.Fields("sex")
txtClass.Text = Rs.Fields("class")
txtMima.Text = Rs.Fields("ptudentpassword")
End Sub
Private Sub Form_Load()
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Conn.ConnectionString = "DSN=nihao;UID=sa;PWD=sa;Database=Stutext"
Conn.CursorLocation = adUseClient
Conn.Open
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Dim strquery As String
Set Rs.ActiveConnection = Conn
Rs.LockType = adLockOptimistic
Rs.CursorType = adOpenKeyset
strquery = "select * from student"
Rs.Open strquery
RecNum = Rs.RecordCount
Rs.MoveFirst
FillText

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Bedit = False
Badd = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub