一个学生管理的小软件，各位帮忙看看。

Question

学校里要交的作业，我做了一个。由于刚开始学VB，对数据库的使用还不会，希望各位大虾能帮我改改。我运行的时候有很多的错误，但不知道是什么地方出错了。还有就是关于调用数据库的方法不太懂。我在线等待，分数如果不够我可以再加。谢谢！~~
Private Sub Command1_Click()‘增加一条记录
    On Error Resume Next
    Command2.Enabled = Not Command2.Enabled
    Command3.Enabled = Not Command3.Enabled
    Command4.Enabled = Not Command4.Enabled
    Command5.Enabled = Not Command5.Enabled
    Command6.Enabled = Not Command6.Enabled
    Command7.Enabled = Not Command7.Enabled
    Command8.Enabled = Not Command8.Enabled
    Command9.Enabled = Not Command9.Enabled
    Command10.Enabled = Not Command10.Enabled
    If Command1.Caption = "新增" Then
        Command1.Caption = "确认"
        Data1.Recordset.AddNew
        Text1.SetFocus
    Else
        Command1.Caption = "新增"
        Data1.Recordset.Updata
        Data1.Recordset.MoveLast
    End If
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
   
End SubPrivate Sub Command2_Click()  ‘删除一条记录
    Command1.Enabled = Not Command1.Enabled
    Command3.Enabled = Not Command3.Enabled
    Command4.Enabled = Not Command4.Enabled
    Command5.Enabled = Not Command5.Enabled
    Command6.Enabled = Not Command6.Enabled
    Command7.Enabled = Not Command7.Enabled
    Command8.Enabled = Not Command8.Enabled
    Command9.Enabled = Not Command9.Enabled
    Command10.Enabled = Not Command10.Enabled
     If Command2.Caption = "删除" Then
        Command2.Caption = "确认"
    Else
        Command2.Caption = "删除"
    End If
     On Error Resume Next
     Data1.Recordset.Delete
     Data1.Recordset.MoveNext
     If Data1.Recordset.EOF Then
        Data1.Recordset.MoveLast
     End If
     Text1.Text = ""
     Text2.Text = ""
     Text3.Text = ""
     Text4.Text = ""
     Text5.Text = ""
     Text6.Text = ""
End SubPrivate Sub Command3_Click()  ’修改一条记录
     On Error Resume Next
    Command1.Enabled = Not Command1.Enabled
    Command2.Enabled = Not Command2.Enabled
    Command4.Enabled = Not Command4.Enabled
    Command5.Enabled = Not Command5.Enabled
    Command6.Enabled = Not Command6.Enabled
    Command7.Enabled = Not Command7.Enabled
    Command8.Enabled = Not Command8.Enabled
    Command9.Enabled = Not Command9.Enabled
    Command10.Enabled = Not Command10.Enabled
    If Command3.Caption = "修改" Then
        Command3.Caption = "确认"
        Data1.Recordset.Edit
        Text1.SetFocus
    Else
        Command3.Caption = "修改"
        Data1.Recordset.Update
    End If
End SubPrivate Sub Command4_Click()   ‘查找记录
    Dim mno As String
    mno = InputBox$("请输入学号", "查找窗")
    Data1.Recordset.find "学号""&mno&"""
    
    If Data1.Recordset.NoMatch Then
       MsgBox "无此学号", , "提示"
    End If
End SubPrivate Sub Command5_Click()
    If Data1.EditMode = dbeditadd Then
        Data1.Recordset.Update
    Else
        Data1.Recordset.MoveFirst
    End If
End SubPrivate Sub Command6_Click()
    back = MsgBox("要退出本程序吗？", vbYesNo)
    If back = vbYes Then
    End
    End If
    End Sub
Private Sub Command7_Click()
    Data1.Recordset.MoveFirst
    
End SubPrivate Sub Command8_Click()
    Data1.Recordset.MovePrevious
    If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
End SubPrivate Sub Command9_Click()
    Data1.Recordset.MoveNext
    If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub
Private Sub Command10_Click()
    Data1.Recordset.MoveLast
    
End Sub

Answer 1

DATA控件加了没？
没怎么细看。这句改改
Data1.Recordset.FindFirst "学号='" & mno & "'"
这句话也错    back = MsgBox("要退出本程序吗？", vbYesNo)
    If back <> 6 Then
    End
    end if