Visual Basic - COMO CONCATENAR TEXT1.TEXT AL RECORDSET???

'TENGO UNA CONCATENACION DE UN CAMPO PARA INDICARLE UNA CONSULTA EN SQL, ES DECIR:
'SELECT &'TEXT1.TEXT' & FROM VENTAS.... PERO NO SE COMO INDICARLE AL RECORDSET QUE
'ME MUESTRE ESTE RESULTADO DE BUSQUEDA EN UN TEXTBOX, OSEA QUE AL PONERLE:
'TEXT2.TEXT = ADORECORDSET.FIELDS ( TEXT1.TEXT ) ME MANDA UN ERROR
'NO SE COMO ENSAMBLAR EL RECORDSET CON EL CAMPO CONCATENADO PARA QUE PUEDA
'MANIPULAR EL TEXT1.TEXT.

No entendi muy bien la pregunta pero me figuras que preguntas teniendo un dato en un texbox , ejecutar una consulta de acuerdo al valor del texto y tomar y valor de la consulta y colocarlo en otro textbox.

La cosa seria asi
strSQL ="SELECT Valor FROM TuTabla WHERE Campo='" & Text1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open strSQL, cn, adOpenForwardOnly, adLockreadOnly
If rs.Bof And rs.Eof Then
sDato ="No hay resultado"
Else
sDato = rs.Fields(0)
End If
rs.Close: Set rs = nothing
Text2.Text = sDato

Espero que esto aclare la duda