De echo la consulta me sale erfectamente lo que no encontraba era cmo asignarle a la variable de la fncion que es resultado el numero del resultado pero ya vi solo me faltaba algo y te muestro como quedo gracias por todo
Public Sub busca1(ByVal resultados As Integer)
Call conexion
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "select count(*) as total from t_datos"
Set rs = cmd.Execute()
resultados = rs!total
End Sub
Gracias sige asi ayudando a la gente
