关于变量传递的问题

Question

ADO的，用的是COMBO1控件，想把COMBO1中的一个选项（用户名）作为数据查询条件。代码如下：
Dim contruse As String '定义COMBO1选择的一个变量Dim cnt As New ADODB.Connection '定义一个链接
Dim cust As New ADODB.Recordset '定义一个数据操作对象  contruse = Combo1
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "\data\data.mdb;" '打开一个数据库
cust.Open "select 姓名,密码 from 操作员 where 姓名=contruse ", cnt, adOpenKeyset, adLockOptimistic 
MsgBox (contruse)
MsgBox (Text1.Text)
MsgBox (cust!密码)
MsgBox (cust!姓名)
现象：
MsgBox (cust!密码)
MsgBox (cust!姓名)
总是是空值，但如果把cust.Open "select 姓名,密码 from 操作员 where 姓名='aaa' ", cnt, adOpenKeyset, adLockOptimistic
也就是 直接就一个库里己有的值去查，那么就没有问题，所以，请各位帮分析一下，哪里出问题了？

Answer 1

cust.Open "select 姓名,密码 from 操作员 where 姓名='" & contruse & "'", cnt, adOpenKeyset, adLockOptimistic 

Answer 2

cust.Open "select 姓名,密码 from 操作员 where 姓名='" & contruse & "'", cnt, adOpenKeyset, adLockOptimistic