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