Blanca Rios

Dim CampoF As String CampoF = Trim(Nz(CCampos.Value, "Sin valor")) If CampoF = "Sin valor" Then MsgBox "Seleccione un campo de busqueda" Exit Sub Else CampoF = CCampos.Value End If Dim CNF As New ADODB.Connection Dim RecorF As New ADODB.Recordset Dim...