vb运行时出现用户定义类型未定义

Dim db As Database
Dim rs As Recordset

Private Sub Command1_Click()
On Error Resume Next
rs.MoveFirst
txtnumber = rs.Fields("学号")
txtname = rs.Fields("姓名")
txtbanji = rs.Fields("班级编号")
txtsex = rs.Fields("性别")
txtdate = rs.Fields("出生日期")
End Sub

Private Sub Command2_Click()
On Error Resume Next
rs.MoveNext
txtnumber = rs.Fields("学号")
txtname = rs.Fields("姓名")
txtbanji = rs.Fields("班级编号")
txtsex = rs.Fields("性别")
txtdate = rs.Fields("出生日期")
End Sub

Private Sub Command3_Click()
On Error Resume Next
rs.MovePrevious
txtnumber = rs.Fields("学号")
txtname = rs.Fields("姓名")
txtbanji = rs.Fields("班级编号")
txtsex = rs.Fields("性别")
txtdate = rs.Fields("出生日期")
End Sub

Private Sub Command4_Click()
On Error Resume Next
rs.MoveLast
txtnumber = rs.Fields("学号")
txtname = rs.Fields("姓名")
txtbanji = rs.Fields("班级编号")
txtsex = rs.Fields("性别")
txtdate = rs.Fields("出生日期")
End Sub

Private Sub Command5_Click()
newnumber = InputBox("请输入学号： ", "添加新纪录对话框")
newname = InputBox("请输入姓名： ", "添加新纪录对话框")
newbanji = InputBox("请输入班级编号： ", "添加新纪录对话框")
newsex = InputBox("请输入性别： ", "添加新纪录对话框")
newdate = InputBox("请输入出生日期： ", "添加新纪录对话框")
With rs
.AddNew
!学号 = LCase(newnumber)
!姓名 = LCase(newname)
!班级编号 = LCase(newbanji)
!性别 = LCase(newsex)
!出生日期 = LCase(newdate)
.Update
End With
MsgBox (newnumber & "已添加到数据库表中！")
End Sub

Private Sub Command6_Click()
Set rs = db.OpenRecordset("SELECT * FROM 学生信息表")
NumberQuery = InputBox("请输入学号： ", "学号查询对话框")
rs.MoveFirst
Do Until rs.EOF
If rs.Fields("学号") Like "*" & LCase(NumberQuery) & "*" Then
txtnumber = rs.Fields("学号")
txtname = rs.Fields("姓名")
txtbanji = rs.Fields("班级编号")
txtsex = rs.Fields("性别")
txtdate = rs.Fields("出生日期")
Exit Sub
Else
rs.MoveNext
End If
Loop
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "/学生信息管理系统.mdb")
Set rs = db.OpenRecordest("学生信息表")
If rs.EOF Then
MsgBox "数据库表中没有信息"
Else
rs.MoveFirst
txtnumber = rs.Fields("学号")
txtname = rs.Fields("姓名")
txtbanji = rs.Fields("班级编号")
txtsex = rs.Fields("性别")
txtdate = rs.Fields("出生日期")
End If
End Sub

这是源代码，出错的是第一行的Database，请各位帮帮忙，我是自学vb的，很多不明白。先谢谢各位了
引用Microsoft DAO 3.5 object Library 后就不再出现用户类型未定义，但是运行时Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "/学生信息管理系统.mdb")
Set rs = db.OpenRecordest("学生信息表")
If rs.EOF Then
MsgBox "数据库表中没有信息"
在这句话中出现未找到方法或数据成员

---

要引用Microsoft DAO 3.5 object Library
简单办法是汪悉：画一个Data1控件卖陵吵，再删除它，就自动引用中侍了

---

Dim db = Database
Dim rs = Recordset

---