登陆问题 代码 哪里错了 请帮忙看下

Private Sub cmdOK_Click()
On Error GoTo ErrHandler:
Dim sql As String
Dim rs As ADODB.Recordset
Dim inUserKey As Integer
Dim intJobID As Integer
If Trim(txtUserName.Text = "") Then
MsgBox "请输入用户名称!", vbExclamation
txtUserName.SetFocus
Else
sql = "select*from Users where UserName='" & txtUserName.Text & "'"
Set rs = ExeSQL(sql)
提示错误为:子程序或函数未定仪 其中Private Sub cmdOK_Click()为黄色 最后一行的ExeSQL 为蓝色

请帮我看一段ASP代码哪里错了 请帮我看下这段代码哪里错了 高手,请帮我看一下邮箱快速登陆代码有没有问题? 请高手帮我看看代码哪里错了,会报错 请帮我看看这个SQL代码,到底哪里错了? 请帮我看下以下C++代码哪里错了` 请高手帮我看看这个C#代码哪里错了 一段asp代码 请高手帮我看看哪里错了，怎么修改 这的这些网页代码哪里错了,请大家帮我看看 请帮我看看这些asp代码错在哪里？