100分，只要能解决一定给分，再现等待

[wqt1982]

我用vb想在sql里添加一个记录总是出这样的错误，请问怎么解决？？

编译错误：

子程序或函数未定义



Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click() 在此显示出错标记
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String


If Trim(Text1(0).Text) = "" Then
MsgBox "请输入用户名称！", vbOKOnly + vbExclamation, "警告"
Exit Sub
Text1(0).SetFocus
Else
txtSQL = "select * from user_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
While (mrc.EOF = False)
If Trim(mrc.Fields(0)) = Trim(Text1(0)) Then
MsgBox "用户已经存在，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
Text1(0).SetFocus
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Exit Sub
Else
mrc.MoveNext
End If
Wend
End If

If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then
MsgBox "两次输入密码不一样，请确认！", vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Text1(2).Text = ""
Exit Sub

Else
If Text1(1).Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Text1(2).Text = ""
Else
mrc.AddNew
mrc.Fields(0) = Trim(Text1(0).Text)
mrc.Fields(1) = Trim(Text1(1).Text)
mrc.Update
mrc.Close
Me.Hide
MsgBox "添加用户成功！", vbOKOnly + vbExclamation, "添加用户"
End If
End If



End Sub

[wqt1982]

没人能回答我吗？？？

[pp616]

哎。直接写sql语句。insert into 然后用执行不就好了。

[liangfang]

靓仔,乜写得甘复杂哦,一名句搞定啦!
库名.Execute "INSERT INTO 表名 (字段, 字段，……) VALUES (字段值, 字段值, 字段值，字段值，……)" '新建行值