Ya hice la prueba pero me marca un error en tiempo de ejecucion "SE REQUIERE DE UN OBJETO"
Anexo mi codigo para que por favor me chequen que estoy haciendo mal
Private Sub Option3_Click()
If Option3.Value = True Then
Text73.Text = "X"
Text71.Text = ""
Text72.Text = ""
Text1.Text = InputBox("NUMERO DE FOLIO")
Dim RsFOLIOS As ADODB.Recordset
Dim SQL As String
Set RsFOLIOS = New ADODB.Recordset
SQL = "Select * From SERIE_FOLIOS Where FOLIOS = '" & Text1.Text & "' "
RsFOLIOS.Open SQL, Conexion.adOpenStatic (Aqui me marca el error)
If RsFOLIOS.RecordCount = 0 Then
MsgBox "No existe el Folio " & Text1.Text
Else
SQL = "Delete SERIE_FOLIOS Where FOLIOS = '" & Text1.Text & "'"
Conexion.Execute SQL
MsgBox "Ha sido eliminado de la base de datos el Folio " & Text1.Text
End If
End If
End Sub
Gracias
