If Combo1.Text = "USUARIO ATENCION" Then
stcampo = "usuario_atencion"
End If
Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones where stcampo like '*" & Trim(Text1) & "*'order by [folio_atencion]")
Select *Seleccione todos los campos
From maestro_atencionesDe la tabla maestro_atenciones
where " & stcampo & " like '*" & Trim(Text1) & "*'Donde el Campo Usuario_Atencion contenga la cadena que está en el text1
order by [folio_atencion]Ordenado por el folio de atención.