Problemas con consultas SQL desde VB6 a access 03

[mumo2006]

Estimados.

Tengo el siguiente problema.
Poseo una base de datos en access 03, la cual se encuentra localizada en un equipo de una red.
A su vez he creado una app en VB6, con la cual puedo accesar a los datos e ingresarlos.

El problema que tengo en estos momentos, es que deseo contar la cantidad de registros que pertenecen a un tipo "X", y luego arrojarlos como un numero a un label. A la hora de realizar esta operación, el dato arrojado queda en "0".

Adjunto codigo de boton que produce este evento:

Private Sub Command2_Click()

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As Integer
con.Open ("dsn=gestion_ejecutivos")
On Error Resume Next


txtsql = "SELECT COUNT * FROM tb_series_pendientes WHERE usuario = '" & Combo1.Text & "'"
Set rs = con.Execute(txtsql)
Label4.Caption = txtsql
con.Close
End Sub

Agradeceré de vuestra ayuda con lo planteado.

Gracias

[Avellaneda]

Iniciado por mumo2006

Estimados.

....
A la hora de realizar esta operación, el dato arrojado queda en "0".

....
txtsql = "SELECT COUNT * FROM tb_series_pendientes WHERE usuario = '" & Combo1.Text & "'"
Set rs = con.Execute(txtsql)
Label4.Caption = txtsql
Gracias

Lo que me extraña es que el Label arroje "0" cuando debería ser SELECT COUNT * FROM tb_series_pendientes WHERE usuario = <Text seleccionado en el combo>.

Prueba así:

Label4.Caption = rs(0)

[mumo2006]

Iniciado por Avellaneda

Lo que me extraña es que el Label arroje "0" cuando debería ser SELECT COUNT * FROM tb_series_pendientes WHERE usuario = <Text seleccionado en el combo>.

Prueba así:

Label4.Caption = rs(0)

Estimado.
Primero que todo gracias por su ayuda.
Pero lamentablemente me sigue dando ese error o mas bien arrojandome un "0" como resultado en el label.
Que podrá ser???

[Avellaneda]

Iniciado por mumo2006

Estimado.
Primero que todo gracias por su ayuda.
Pero lamentablemente me sigue dando ese error o mas bien arrojandome un "0" como resultado en el label.
Que podrá ser???

Repasando tu código veo que declaras la variable 'txtsql' como integer y después le asignas una cadena. Esto debería dar un error de no coincidencia de tipos al asignarle la cadena, pero lo salta por la instrucción On Error Resume Next y claro, siempre devuelve cero.

Conclusión: Declara la variable txtsql como string y procura usar la instrucción On Error.. lo menos posible (solamente en aquellos casos que conozcas el error y deba seguir ejecutándose el código).