VB consulta la base de datos ACCESS y devuelve los resultados de la consulta.
Si rs.RecordCount <= a Entonces
Reemplazar con:
rs.open sql, cn, adopenkeyset , adLockOptimistic
si rs.recordcount=0 entonces
Lo más importante es que no se cree una instancia del objeto. Si está orientado a objetos, debe crear una instancia del objeto. Si ha utilizado VC, C, Java y otros lenguajes, lo comprenderá. Todos estos requieren instanciar objetos.
Después de:
Atenuar cn como nuevo ADODB.Connection
Atenuar rs como nuevo ADODB.Recordset
Después de agregar:
establezca cn = new adodb.connection
establezca rs = new adodb.recordset
y proporcione una conexión para que pueda ver: hay un reproductor de música, hay un Operación de la base de datos, con código fuente completo y formulario en tiempo de diseño:
/0512109051
Pueden verlo, lo escribí y pueden comunicarse entre sí.