Visual Basic - mirad esto y decidme por favor

mirad este codigo:

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

la instruccion criterio no la admite, por favor a quien se le ocurre como hacerlo.
He probado con algunas modificaciones q agregan mas comillas y cosas asi y no lo reconoce, da error.

Pruebalo de esta manera:
Private Sub Command4_Click()
Dim criterio As String
criterio = "campo1='" & valor.Text & "'"
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox "No encontrado", vbInformation, "Data"
End If
End Sub