函数未定义什么错误？

Question

Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
Dim strItem As String
sql = "select username from use where username='" & Trim(Text1.Text) & "'"
Set mrc = selectsql(sql, msg)
If mrc.RecordCount > 0 Then
   Do While Not mrc.EOF
       strItem = mrc.Fields(0) & " " & mrc.Fields(1)
       CboName.AddItem (strItem)
       mrc.MoveNext
   Loop
   mrc.Close
   CboName.ListIndex = 0
 Else
   MsgBox ("请先创建用户信息！")
   Cmdok.Enabled = False
   Exit Sub
 End IfDim username As String
Dim PasswordOld As String
Dim PasswordNew As String
Dim PasswordCheck As String
'赋值
PasswordOld = Trim(txtOld.Text)
PasswordNew = Trim(txtNew.Text)
PasswordCheck = Trim(txtCheck.Text)
username = Left(Trim(CboName.Text), 6)
sql = "select username from use where username='" & Trim(Text1.Text) & "'"
sql = sql & "and 旧密码='" & PasswordOld & "'"
On Error GoTo ErrMsg
Set mrc = selectsql(sql, msg)
If mrc.RocordCount > 0 Then
  If (PasswordCheck <> PasswordNew) Then
       MsgBox ("两次输入的密码不一致！")
       Exit Sub
       End If
       mrc.Fields("密码") = PasswordNew
       mrc.Update
       MsgBox ("更新成功！")
Else
       MsgBox ("旧密码输入错误！")
       Exit Sub
  End If
  Exit Sub
ErrMsg:
   MsgBox Err.Description, vbExclamation, "出错"
End Sub错误第一行。。子程序或函数未定义

Answer 1

你须新建一个数据工程，它会自动引用必要的与数据库操作有关的DLL文件。
然后使用上述代码，方不会报错。