求VB同学录代码！！

求VB 同学录代码 QQ 1119455327

可以用ado来连接数据库，然后进行数据库操作，来编写，我以前编过一个，要的话加我

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.Recordset.Fields("备注") = Text8 Adodc1.Recordset.Update End If End Sub Private Sub Command3_Click() On Error Resume Next If Command3.Caption = "修改" Then If MsgBox("确实要修改记录吗？", vbYesNo) = vbYes Then 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.Recordset.Fields("地址") Text8 = Adodc1.Recordset.Fields("备注") Adodc1.Recordset.Update Command3.Caption = "确定" Command2.Enabled = False Command4.Enabled = False DataGrid1.Enabled = False Adodc1.Enabled = False Exit Sub End If Else 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.Recordset.Fields("备注") = Text8 Adodc1.Recordset.Update Command3.Caption = "修改" Command2.Enabled = True Command4.Enabled = True DataGrid1.Enabled = True Adodc1.Enabled = True End If End Sub Private Sub Command4_Click() If MsgBox("确实要删除吗？", vbYesNo) = vbYes Then Adodc1.Recordset.Delete DataGrid1.Refresh End If End Sub Private Sub Form_Load() Adodc1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\通讯录.mdb;Persist Security Info=False" Adodc1.RecordSource = "通讯录" Adodc1.Refresh End Sub Private Sub Text10_Change() Adodc1.RecordSource = "select * from 通讯录 where 工作单位 like + '%'+'" + Text10.Text + "'+ '%'" Adodc1.Refresh End Sub Private Sub Text9_Change() Adodc1.RecordSource = "select * from 通讯录 where 姓名 like + '%'+'" + Text9.Text + "'+ '%'" Adodc1.Refresh End Sub