高分求VB中保存按钮代码

做一个简单的同学录,有添加和和保存,添加的代码直接是Adodc1.Recordset.AddNew,不做其他处理,只是为了清空文本框数据,主要是保存按钮代码,写的是
Private myconn As New ADODB.Connection
Set myconn = New ADODB.Connection
Dim mysql As String

If Trim(Text1.Text) = "" Then
MsgBox "姓名不能为空！", vbOKOnly, "输入错误"
Text1.SetFocus
Exit Sub
If Trim(Text3.Text) = "" Then
MsgBox "手机不能为空！", vbOKOnly, "输入错误"
Text3.SetFocus
Exit Sub
End If
If Not IsDate(Text5.Text) Then
MsgBox "正确日期格式为（YYYY-MM-DD）", vbOKOnly, "警告"
Text5.SetFocus
Exit Sub
End If
With Adodc1.Recordset
mysql = "insert into tongxunlu (姓名,关系,手机,座机,生日,QQ,邮编,email,地址,备注) values('"
mysql = mysql + Text1.Text + "','"
mysql = mysql + Text2.Text + "','"
mysql = mysql + Text3.Text + "','"
mysql = mysql

vb中保存部件问题？？？ 高分求一段VB代码 VB中保存图片框中内容 VB按钮代码？？？ 高分！急急急！怎样在vb制作的个人浏览器中的网页输入框中的下拉列表中保存历史记录？ 高分求一段算法的vb代码。 vb中保存listview显示的信息怎么写 ? ASP 数据库中保存的是HTML代码 跪求!高分赏!VB随机点名代码 VB如何用代码创建一个按钮