VB新手，未找到方法或数据成员。急！解决后可再加分

我制作的是一个登陆界面，要求输入用户名和密码之后在数据库里查找，如果找到该用户并且密码正确的话就进入系统，否则重新输入。
代码如下：
Option Explicit
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim miCount As Integer
Public LoginSucceeded As Boolean
Private Sub Form_Load() '加载窗体时代码
Dim i As Integer
i = 0
txtSQL = "select * from 用户信息表"
Set mrc = ExecuteSQL(txtSQL, MsgText)
With txtUserName
Do While Not mrc.EOF
i = i + 1
.AddItem Trim(mrc!用户名称)
mrc.MoveNext
Loop
.ListIndex = i - 1 ‘编译时在这里提示未找到方法或数据成员！
End With
mrc.Close
LoginSucceeded = False
miCount = 0
End Sub

Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
txtSQL = "select * from 用户信息表 where

VB未找到方法或数据成员 "未找到方法或数据成员"VB提示 急！！！VB提示“未找到方法或数据成员” vb 未找到数据成员或方法 combo Help！！！VB提示“未找到方法或数据成员” 未找到方法或数据成员 求助.在用VB编程时,提示"未找到方法或数据成员" 请VB高手看看这一断 它提示是未找到方法或数据成员 vb问题“未找到方法或数据成员”,怎么办啊?急 vb中出现未找到方法或数据成员是什么问题？