buscar registro en access

Hola quiero buscar un registro en access.

La instruccion select se como funciona, pero la cosa es que quieor introducir una variable en el select.

esto es.

Código:


Dim xlapp
Dim xllibro
Dim xlhoja
xlapp = CreateObject("Excel.Application")
 xllibro = xlapp.workbooks.add
xlhoja = xllibro.worksheets("Hoja1")
xlapp.visible = True

  Dim consejero As String = Mid(linea, 202, 5)

  Dim stn As OleDb.OleDbConnection
        Dim cmd As OleDb.OleDbCommand ' escritor
        Dim lector As OleDb.OleDbDataReader ' lector
        stn = New OleDb.OleDbConnection
        stn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Usuario\Desktop\prueba\TABLAS_PRUEBA.accdb") ' conexion
        stn.Open()

       cmd = New OleDb.OleDbCommand
            cmd.Connection = stn
            cmd.CommandText = "select DENOMINACION FROM TABLAS_PRUEBA WHERE CONSEJERO = " & consejero & " "


            lector = cmd.ExecuteReader ' lector conectado con lector del escritor
            Do While lector.Read
                Console.WriteLine({0}, lector ("DENOMINACION"))
            Loop
         
 xlhoja.cells(fila, 4).value = LO QUE LEA DEL ACCESS..

            lector.Close()

NECESITO AYUDA, ME URGE REALIZAR EL CÓDIGO Y POCO A POCO ESTOY HACIENDOLO.
PD, PARA MI NIVEL ES ALGO DIFICIL DIFICIL..

por eso si realizo preguntas que para alguno es facil que no piense que no intento resolverlas por mi cuenta peor me sobrepasa...