怎样用VB制作同学录

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Set DataGrid1.DataSource = Adodc2
Adodc1.Recordset.MoveFirst
sn = Val(Adodc1.Recordset("编号"))
Do While Adodc1.Recordset.EOF = False
If sn < Val(Adodc1.Recordset("编号")) Then sn = Val(Adodc1.Recordset("编号"))
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.MoveLast
Set DataGrid1.DataSource = Adodc1

Text1 = sn + 1
If MsgBox("确实要增加记录吗？", vbYesNo) = vbYes Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("编号") = Text1
Adodc1.Recordset.Fields("姓名") = Text2
Adodc1.Recordset.Fields("工作单位") = Text3
Adodc1.Recordset.Fields("电话") = Text4
Adodc1.Recordset.Fields("手机") = Text5
Adodc1.Recordset.Fields("传真") = Text6
Adodc1.Recordset.Fields("地址") = Text7
Adodc1.Recordse