一段ADO连接access数据库添加数据的代码，不知道哪错了。

如果textbox内没有数据，就会弹出"带 * 号为必填项",
但是填入数据后再点击就没有反应了。也无法将数据写入数据库。不知道什么原因，望指教！~

Private Sub cmdAdd_Click()
Dim sc As Integer
If Not Testtxt(txtNo.Text) Or Testtxt(txtName.Text) Or Testtxt(txtSex.Text) Or Testtxt(txtBookTime.Text) Or Testtxt(txtTel.Text) Or Testtxt(txtEnrolTime.Text) Then
MsgBox "带 * 号为必填项", vbOKOnly + vbExclamation, "警告"
txtNo.SetFocus
Exit Sub
End If
sc = MsgBox("确实要添加这条记录吗？", vbOKCancel, "提示信息")

If sc = 1 Then

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim Str1 As String

Dim Str2 As String

Dim Str3 As String

Str1 = "rovider=Microsoft.Jet.OLEDB.4.0;"

Str2 = "Data Source=/data.mdb;"

Str3 = "Jet OLEDBatabase Password=

ADO连接ACCESS进行数据查询 ADO进行动态数据连接 ado连接access数据库的问题 ADO连接ACCESS数据库的问题 怎么用VB ado连接access数据库 现在用ADO连接数据库 并且向表里插入一段数据的问题 vb+access数据连接 关于VC ADO对ACCESS数据库添加数据的问题++++ VB连接ACCESS,读取ACCESS数据全过程 在VB中用ADO控件连接Access数据库