Buen dia, entusiasmado por lo que he aprendido viendo y llevando a cabo las acciones e instrucciones de sus tutoriales, hasta ahora todo funciona, sin embargo acoto que en el video de Visaul basic 6 VT20 consultas simples, con parametros detallados, tuvo un ligero problema que me retraso dos días al no poder descifrar el simbolo de la busqueda de comparacion, hasta que al fin, gracias a la persistencia, pero tuve otro problema que la busqueda ya que el change no funcionaba y otra vez la busqueda d e informacion me permitio elaborar una nueva rutina que me funciona, al modificar la posicion del Dim busca al inicio antes de los optbusqueda y sacarlo de los buscadores, le envio el cambio para su evaluacion y consejo, una vez mas agradecido por el esfuerzo que hace por enseñar y mejorar este mundo

Private Sub Txtbusqueda_Change()
Dim busca As String
If Optbusqueda(0).Value = True Then BUSCANOMBRE: Exit Sub
If Optbusqueda(1).Value = True Then BUSCARIF: Exit Sub

End Sub

Sub BUSCANOMBRE()
busca = UCase(Trim(Txtbusqueda.Text)) & "%"
Adodc1.RecordSource = "select * from Clientes where [Nombre] like '" & busca & "'"
Adodc1.Refresh
formatogrilla
End Sub

Sub BUSCARIF()
busca = UCase(Trim(Txtbusqueda.Text)) & "%"
Adodc1.RecordSource = "select * from Clientes where [Rif] like'" & busca & "'"
Adodc1.Refresh
formatogrilla
End Sub