Cita:
Iniciado por rulsanchez 
Prueba esto compi:
Dim Sql as String
Dim Rs as New Recordset
Dim Conexion as ADODB.Connection
'Ponle un nombre a esa columna para que luego en el RS.Fields puedas hacer referencia
SQL="SELECT COUNT(CODIGO) as CuentaCodigo FROM CONTACTOS"
RS.Open SQL, Conexion, adOpenStatic, adLockReadOnly
'Ahora miras si te devuelve algo la consulta si es asi lo muestras
If Not RS.EOF Then
Tulabel.Caption=RS.Fields("CuentaCodigo")
End if
Prueba y me cuentas ;)
Ok amigo mil gracias, resulto ser mas facil de lo que pensaba y yo siempre lo he dicho "No saber no es malo, lo malo es no saber el teléfono del que sabe", jejeje.
Mil Gracias y Hasta pronto.