谁懂得VB的，帮忙进来看以下啊

帮偶看看这段程序哪里出错了，它一直提示子程序或函数未定义，偶是个初学者看不出来哪里出错了，也不知道怎么改，求各位高手帮忙指点以下，看如何改哦，小生在此先行谢过了
Private Sub Form_Load()
flagbj = 0
Dim rs As New ADODB.Recordset
rs.Open "select *from student", conn, adOpenStatic, adLockReadOnly
lblallnum.Caption = rs.RecordCount
rs.Close
rs.Open "select distinct class from studeng", conn, adOpenStatic, adLockReadOnly '查询班级，去掉重复的项
Do While Not rs.EOF '将班级添加到 cmdclass 中
cmbclass.AddItem rs.Fields("class")
rs.MoveNext
Loop
rs.Clone
Set rs = Nothing
flag = 1 '开始时将flag 置为1，这样才能在datagrid1的行和列改变时显示正常
rsstu.Open "select *from student", conn, adOpenKeyset, adLockOptimistic
If rsstu.EOF = False Then
Call disp
Call unlockedmd
Else
MsgBox "尚没有添加考生信息!"
Call lockedmd
End If
Set DataGrid1.DataSource = rsstu
datafridl.Columns(1).Caption = "学号"
datafridl.Columns(2).Caption = "姓名"<

谁懂得VB的，帮忙进来看以下啊 懂得的进来看哈 谁懂得意大利文的进来帮忙下! 懂得给人起名的师傅进来帮忙一下啊 懂得GPRS上网设置的进来看~！ 懂得健忘的同志进来看下 懂得的人进来看下 懂得监控录像的人进来帮忙 懂得取名字的速度进来帮忙 懂得塔罗牌的进来啊