Set rs1 = cnn.Execute("select * from findset") no puede obtener la tarea
Dim
rs1
Como
Nuevo
ADODB.Recordset
Privado
Sub
Form_Load()
Establecer
rs1
=
cnn.Exec("select
de
"). Ejecutar("select
*
from
findset")
Hacer
Hasta
rs1.Eof
List1.AddItem
rs1.Fields (1)
rs1.MoveNext
Bucle
rs1.Close
End
Sub
Hay dos errores en su código:
1.cnn.Execute ("select
*
From
findset") Este método para obtener el conjunto de registros es de solo lectura y el puntero solo puede moverse hacia abajo. además El valor de rs1.RecordCount no se puede obtener directamente;
2. Cada vez que se lee un registro, el puntero debe moverse hacia abajo una posición; de lo contrario, siempre se puede leer el primer registro.