Mostrar ID de elemento antes de darlo de alta en BD (VB6) (SOLUCIONADO)

[Alexand3r]

Buenas foreros.

Aqui toy una vez más con mis dudas.

A ver si me explico bien.

Estoy haciendo una aplicacion en VB6 que conecta con una BD en MySQL, en el DataEnvironment tengo hechas todas las consultas. Y tengo una hecha para que me muestre el ID del elemento en el formulario antes de darlo de alta en la BD.

La consulta es la siguiente (se llama "count_entrada"):

SELECT COUNT(id_entrada) +1 FROM entrada

Cuando lo ejecuto desde el ejecutador SQL me muestra el 1 cuando aún no tengo ningún elemento, osea, que esta bien.

En el código del formulario donde quiero que me lo muestre, pongo lo siguiente:

BasedeDatos.Commands("count_entrada").Execute
BasedeDatos.rscount_entrada.Open
Text1.Text = BasedeDatos.rscount_entrada.Fields(0).Value
BasedeDatos.rscount_entrada.Close

Y es donde me da el error, me dice que "se requiere un objeto" al cargar la primera linea, y no sé como solucionarlo. Si podeis echarme una manita :P.

Bueno, gracias de antemano.

Un saludo.
Alex.