Ayuda con Funcion

[hunabku]

Aun tengo roblemas estuve haciendopruebas con la funcion 2 que me hiciste favor de escribir pero mi consulta no logo hacer que me la aroje en la variable

Public Function busca2(ByVal resultado As Integer) As Integer
'invoca la conexion
Call conexion

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

busca2 = rs
End Function


colocando un valor directo o fijo si me o carga bien pero no logo me carge el resultado de la consulta en esa variable