Insertar variable a sentencia SQL

[javi_d]

Buenas amigos! necesito una ayudita
Quiero hacer una consulta de un usuario segun descripcion que tengo en un combo, pero no logro hacer que funcione. Si saben alguna solucion se los voy a agradecer.
Gracias!!!

Este es el codigo que estoy ocupando
--------------------------------------------------------------------------------------------------------
Private Sub ComboIngresoUsuario_click()
Dim BuscaUser As String
Dim RDBuscaUser As Recordset
Dim IDUSERS, NOMUSERS, CONUSERS, TIPOUSERS

BuscaUser = "SELECT Usuario.CodUser, Usuario.NomUser, Usuario.ConUser, Usuario.TipoUser FROM Usuario where (Usuario.NomUser='me.ComboIngresoUsuario'"

Set RDBuscaUser = BDUsuario.ConexionUsuario.Execute(BuscaUser)
Set DataGrid1.DataSource = RDBuscaUser
Set IDUSERS = RDBuscaUser.Fields("CodUser") 'Codigo
Set NOMUSERS = RDBuscaUser.Fields("NomUser") 'Nombre
Set CONUSERS = RDBuscaUser.Fields("ConUser") 'Contraseña
Set TIPOUSERS = RDBuscaUser.Fields("TipoUser") 'Tipo de Usuario


End Sub
--------------------------------------------------------------------------------------------------------