分类：电脑/网络-软件
问题：vb6.0调试的时候为什么在executeSQL的地方老是“子程? 
Private Sub cmdancel_Click()  EndEnd SubPrivate Sub cmdOK_Click()  Dim txtsql As String  Dim mrc As ADODB.Recordset  Dim msgtext As String  If username.Text = "" Then    MsgBox "请输入用户名！"    username.SetFocus  Else    txtsql = "select * from user_info wherePrivate Sub cmdancel_Click()  EndEnd SubPrivate Sub cmdOK_Click()  Dim txtsql As String  Dim mrc As ADODB.Recordset  Dim msgtext As String  If username.Text = "" Then    MsgBox "请输入用户名！"    username.SetFocus  Else    txtsql = "select * from user_info where user_ID=' " & username.Text & " '"    Set mrc = ExecuteSQL(textsql, msgtext)——就是这里有问题    If mrc.EOF Then      MsgBox "没有这个用户！"      username.SetFocus    Else      If Trim(mrc.Fields("user_PWD")) = Trim(userPassword.Text) Then        Username_ok = Trim(userPassword.Text)        Unload Me        frmmain.Show      Else        MsgBox "输入密码不对！请重新输入"        userPassword.SetFocus      End If    End If  End IfEnd Sub我做了好几个窗体都是executeSQL那里有问题，代码什么的完全是按书上写的输的，本人乃菜鸟一只，不知道那里出问题了，各位大神帮忙啊~
回答：Dim my as ADODB.Connection '定义一个连接。
然后打开连接。
mycn.open" "(到网上去找一下怎么打开连接，连的数据库不一样）
然后，
set mrc=my.Execute(textsql)就可以了。
ExecuteSQL()这个函数的功能，可能是把这些都集在一起了。