Visual Basic - filtros de busqueda...

quiero hacer filtros de busqueda por medio de un codigo alfanumerico pero no me funciona como yo quiero. estoy utilizando los siguientes codigos por favor diganme donde esta el error:

Dim Criterio As String
Criterio = Text1.Text
If Text1.Text = Text1.Text Then Criterio = Criterio + " and Codigo = " + " & Text1.Text & "
If Criterio = Text1.Text Then
Criterio = Mid(Criterio, 5, Len(Criterio))
Adodc4.Recordset.Find Criterio, 0, adSearchForward, 1
End If
Set Text1.DataSource = Adodc4
End Sub

la falla principal esta en usar el metodo Find????
eso es muy .....

mejor asi:

Dim Criterio As String
Criterio = Text1.Text
If Text1.Text = Text1.Text Then Criterio = Criterio + " and Codigo = " + " & Text1.Text & " << -- ultimas comillas ?????

If Criterio = Text1.Text Then
Criterio = Mid(Criterio, 5, Len(Criterio))
End If

data.recordsource = criterio
data.refresh

puedes usar el operador LIKE
data.recordsource = "SELECT * personas WHERE nombre LIKE '*e*' ;"
data.refresh
eso mostraria todas las personas que contengan la letra e