Ayuda con las búsquedas en Visual Basic

Hola!
Nuevamente molestando un poquito!
Mira, estoy realizando una búsqueda por medio de una String. Mi problema es que cuando busco con una palabra todo bien, pero cuando lo quiero hacer con 2 (por ej: "Juan Lopez") me da error. ¿Hay alguna manera de poder hacerlo?
Si me podes orientar todo bien, igualmente MUCHAS GRACIAS!
Abel
Este es el código:
Dim Busqueda1 As String
If KeyAscii = "13" Then
Busqueda1 = Text1.Text
With DataEnvironment1.rsCommand2
.MoveFirst
.Find "NOMBRE Like %" & Busqueda1 & "%"
End With
End If