郁闷,求助!!!再线等!!!急急急

vb中access数据库的问题
查询table中的数据
cs是一个数据库,table是其中的表
表的field包括学号和分数
在text1中输入所要查询的学号 ,按下command1--查询
为什麽系统总是说
对象变量或with变量未设置出错处在
  Data1.Recordset.MoveFirst
源代码如下:Private Sub Command1_Click()
Dim dbs As Database
Dim tb As Recordset
Dim bl As Boolean
Set dbs = OpenDatabase("d:\毕业设计\cs.mdb", dbOpenDynaset)
Set tb = dbs.OpenRecordset("table", dbOpenTable)
If Trim(Text1.Text) = "" Then
   smeg = "学号不能为空"
  MsgBox smeg, vbOKOnly + vbExclamation, "警告"
  Text1.SetFocus
  Exit Sub
Else
 Data1.Refresh
***********************
  Data1.Recordset.MoveFirst
****************************  For i = 0 To Data1.Recordset.RecordCount - 1
  If Trim(Text1.Text) = Trim(Data1.Recordset.Fields("学号")) Then
     
   Form1.Label3.Caption = Data1.Recordset.Fields("分数")  Else
        Data1.Recordset.MoveNext
 End If
  Next i
 
End If
End Sub