Visual Basic - AYUDA URGENTE CON BUSQUEDAS EN VB 6.0

Antes que nada gracias por leer mi mensaje y ojala y puedan ayudarme ya que estoy un poco desesperada.
Estoy realizando busquedas en un datagrid. El problema es que quiero que los resultados me los mande al datagrid ordenados alfabeticamente y saber como realizar la busqueda para que me acepte nombre y apellido estando los dos en el mismo campo. Ojala y puedan ayudarme.
El codigo que tengo para esto y que funciona para buscar cualquier nombre es el siguiente:
Private Sub cmdBuscarTxt_Click()
Dim buscado As String, criterio As String
buscado = Me.Text1.Text
If buscado = "'*" Then
MsgBox "introducir nombre del autor", vbOKOnly + vbInformation, "atencion"
Else
criterio = "autor like '*" & buscado & "*'"
Me.Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Me.Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF Then
Me.Adodc1.Recordset.MoveFirst
Me.Adodc1.Recordset.Find criterio
If Me.Adodc1.Recordset.EOF Then
Me.Adodc1.Recordset.MoveLast
MsgBox ("no encuentro ese nombre")
End If
End If
End If
End Sub

Por qué no cierras la base y la vuelves a abrir con la sentencia de SQL que tú quieres?, de esa manera te enviará los datos al datagrid que cumplan xon la condición de búsqueda que te interesa.

saludos