Visual Basic - metodo find

Hola: tengo el siguiente problema,... abro un recordset con una consulta sql y una ves abierto al querer hacer hacer una busqueda dentro del mismo con el metodo find me arroja el error "ARGUMENTOS INCORRECTOS, FUERA DEL INTERVALO PERMITIDO O EN CONFLICTO CON OTROS"...

les dejo mi codigo a ver si me pueden ayudar.

Private Sub Form_Load()

Conectar
rs.Open " SELECT REQUIREMENT.WORKORDER_BASE_ID AS COD_ING, PART_1.DEscriptION, REQUIREMENT.PART_ID as Codigo, PART.DEscriptION as Descripcion, REQUIREMENT.USAGE_UM " & _
" FROM WORK_ORDER INNER JOIN (PART AS PART_1 INNER JOIN (REQUIREMENT INNER JOIN PART ON REQUIREMENT.PART_ID=PART.ID) ON PART_1.ID=REQUIREMENT.WORKORDER_BASE_ID) ON WORK_ORDER.BASE_ID=REQUIREMENT.WORKORDER_BASE_ID " & _
" WHERE (((REQUIREMENT.WORKORDER_TYPE) Like 'M'));", cn, adOpenDynamic, adLockOptimistic

End Sub


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
rs.MoveFirst
rs.Find "WORKORDER_BASE_ID like " & Text1.Text & ""
If rs.BOF = True Or rs.EOF = True Then
MsgBox "El codigo ingresado no existe", vbInformation, "Atencion"
Else
For i = 0 To rs.RecordCount - 1
ctList1.AddItem rs!WORKORDER_BASE_ID + ";" + rs!Description + ";" + rs!Codigo ";" + rs!Description
rs.MoveNext
Next i
End If
End If
End Sub

Si el campo no es numérico, tienes que encerrar el valor del TextBox entre comillas simples

rs.Find "WORKORDER_BASE_ID like '" & Text1.Text & "'"