TRABAJADORA
12 de Enero del 2004

TENGO EL SIGUIENTE CODIGO:

Private Sub Command1_Click()
'AGREGAR EJERCICIO
If Text1.Text = "" Then
MsgBox "NO PUEDE INTRODUCIR REGISTROS EN BLANCO, INTRODUZCA EL EJERCICIO", vbInformation
Else
Dim rtbuscar As New ADODB.Recordset

With rtbuscar
.Open "select * from EJERCICIO where (EJERCICIO) ='" & Text1.Text & "'", cnn
If .EOF = True Or .BOF = True Then 'si hay registros
rst_EJERCICIO.AddNew
rst_EJERCICIO!EJERCICIO = Text1.Text
rst_EJERCICIO.Update
MsgBox "Registro AGREGADO con exito", vbInformation
Text1.Text = ""

rs.Open "EJERCICIO", cnn, adOpenForwardOnly, adLockReadOnly
Do Until rs.EOF
Dim nuevo As ListItem
Set nuevo = ListView1.ListItems.Add(, , rs(0))

rs.MoveNext
Loop
rs.Close
Else
MsgBox "EL EJERCICIO YA EXISTE", vbInformation
Text1.Text = ""
End If
End With


End If
End Sub


ME MARCA EL ERROR 91 EN LA LINEA:
rs.Open "EJERCICIO", cnn, adOpenForwardOnly, adLockReadOnly

POR FAVOR, PODRIAN AYUDARME??

rafa
12 de Enero del 2004

Hola.
Ese error creo que es pq no has definido una variable.
Comprueba si cnn es publica o global.
Suerte