300分求VB实验题！

学生学籍管理系统设计
4．1设计目的与意义
开发一个简单的学生学籍管理信息系统，该 系统能够实现对学生基本信息的录入、浏览、查询和修改。通过本系统的设计，要求学生掌握数据库的设计，数据控件的使用，掌握菜单系统的设计。培养学生综合解决实际问题的能力。
4．2 系统功能要求
在本系统的设计中，要求实现以下基本功能：通过输入正确的用户名和密码才能进入主系统界面；主系统界面通过菜单选择分别进入各功能模块界面。整个系统界面设计要求美观。功能完善。
4．3 设计要求
1、系统登录界面
系统登录界面设计要求只有正确输入了用户名和密码后才能进入系统，如出现输入错误，应产生对话框提示错误信息，根据选择操作实现其功能。登陆界面应美观，实用。
2、系统主界面设计要求
主系统界面通过菜单选择进入各功能模块，菜单系统应功能完整、系统界面应美观，并将设计小组成员信息反映出来。
3、学生信息录入模块
该模块的主要功能是向数据库输入学生基本信息。
学生信息查询模块
4 该模块的主要功能是实现学生信息的浏览，并能根据条件查询特定学生的信息。
5、学生信息修改模块
该模块的功能是将当前记录修改后写入数据库

应该是VB作业吧，+QQ我看看
程序已经发到你邮箱

部分代码
Private Sub Command1_Click()
If Trim(Text3) = "" Then
MsgBox "请输入记录号", 48, "提示"
Text3.SetFocus
Else
Dim str2 As String
Open App.Path & "\records.txt" For Random As #1
'On Error GoTo line1:
Get #1, Text3, str2
Close #1
If str2 = "" Then
MsgBox "没有此记录号", 48, "提示"
Text3 = ""
Text3.SetFocus
Else
s = Split(str2, ",")
For i = 0 To 5
Text1(i) = s(i)
Next
For j = 0 To 3
Text2(j) = s(6 + j)
Next
End If
End If
'line1:
'MsgBox "记录号错误", 48, "警告"
'Close #1
End Sub

Private Sub Command2_Click()
Dim str1 As String
If Not IsNumeric(Text1(0)) Then
MsgBox "准考证号错误,请输入数字", 48, "提示"
Text1(0) = ""