Cabia lo siguiente:
Código:
...
If Option3.Value = True Then
Text73.Text = "X"
Text71.Text = ""
Text72.Text = ""
Text1.Text = InputBox("NUMERO DE FOLIO")
SQL = "Select * From SERIE_FOLIOS Where FOLIOS = ' " & Text1.Text & " ' "
'Agrega o modificas estás líneas
CONEXION.ConnectionString="Provider=Microsoft.Jet.O LEDB.4.0;Data Source=base_de_datos;Persist Security Info=False"
CONEXION.Open
RsRegistros.Open SQL, CONEXION, adOpenStatic, adLockOptimistic
RsRegistros.MoveFirst
...
No te servirá de mucho, pero si te puede dar una mejor idea de donde y como solucionar el problema.
Ah, no se puede evitar usar SQL.