YA LA DECLARE
DIM CONEXION AS ADODB.CONNECTION
Y AHORA ME MARCA OTRO ERROR"
"OPERATION IS NOT ALLOWED ON AN OBJECTREFERENCING A CLOSED OR INVALID CONNECTION" ERROR 307 EN TIEMPO DE EJECUCION
AQUI VA MI CODIGO :
Private Sub Option3_Click()
Dim SQL As String
Dim RsRegistros As ADODB.Recordset
Dim CONEXION As ADODB.Connection
Set RsRegistros = New ADODB.Recordset
Set CONEXION = New ADODB.Connection
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 & " ' "
RsRegistros.Open SQL, CONEXION, adOpenStatic, adLockOptimistic
RsRegistros.MoveFirst
If Form2.Adodc1.Recordset.RecordCount = 0 Then
MsgBox "No existe el Folio" & Text1.Text
Else
SQL = "Delete Tabla Where Campo = ' " & valor & " ' "
CONEXION.Execute SQL
MsgBox "SE ELIMINARA DE LA BASE DE DATOS YA QUE VAS A UTILIZAR EL FOLIO" & Text1.Text
RsRegistros.Close
End If
End If
End Sub
USTEDES VEN DONDE ESTE EL ERROR??
YO NO VEO NADA
GRACIAS POR LA AYUDA !!!