Ayuda con Funcion

[hunabku]

Saludos amigos bueno haber creo que es algo basico pero se me esta complicando tengo una aplicacion en vb6 con na base de datos en sql server m conexion a mi baso la hago medianto ADO hata alli n tengo problemas hago mis consultas normal en el evento de un boton o un procedmiento ya sea publico o privado y todo bien pero ahora bueno para no hacer les ecento largo esta es mi fcio basica

Public Sub busca(ByVal resultado As Integer)

'Se conecta a la base
Call conexion

'hace la consulta
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "select count(*) from t_datos"
Set rs = cmd.Execute()


End Sub

y se supone que el resultado me lo debe guardar en la variable resultado o me equivoco despues solo invoco la funcion asi

call busca(resultado)


Pero no me trae nada diganme cual es el problema se los agradecer con gusto