Visual Basic - problemas con findFirst en vb

Intento cargar en una serie de cuadros de texto el resultado de buscar el contenido de uno de ellos en una base de datos. El problema es que en el criterio del find no reconoce el contenido del cuadro de texto.

Si le paso un palabra directamente en código si funciona, sería algo así:

Private Sub Command2_Click()
Dim criterio As String
criterio = "campo1='pepe'"

Data1.Recordset.FindFirst criterio
End Sub

pero esto otro no va:

Private Sub Command4_Click()
Dim criterio As String
Dim aux As String
aux = valor.Text
criterio = "campo1 = aux"
Data1.Recordset.FindFirst criterio
End Sub

Tengo tambien un control data que me permite mover por los registros de la tabla.

Agradecería que me dijesen como poder leer el contenido del cuadro de texto para que funcione el finfFirst.

MUchas gracias

Cambialo a:
Private Sub Command4_Click()
Dim criterio As String
criterio = "campo1 = '" & valor.Text & "'
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox "Registro No Encontrado", vbInformation, "Data"
End If
End Sub

Gracias por tu respuesta. De todas formas esa construcción ya la había intentado y me da un error de sintasis, si se te ocurre otra cosa no dudes en intentarlo.
Gracias de nuevo