Cita:
Iniciado por Avellaneda 
En vez de
bd. pon el nombre de la variable que le hayas dado al abrir la base de datos.
Me acabo de dar cuenta, por el mensaje privado que me enviaste que no tienes una conexión abierta a la base de datos, sino un enlace al control Data.
Prueba así:
Código:
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Set bd = OpenDatabase(App.Path & "\Base de Datos\honorarios.mdb")
Set rs = bd.OpenRecordset("SELECT Sum(precios) AS SumaTotal FROM deducciones2")
Total.Text = rs!SumaTotal
Set rs = Nothing
Set bd = Nothing
Nota importante:
No contesto a mensajes privados cuando se puede hacer en el foro. Creo que el fin del foro es ese, que todos aprendan (o rectifiquen).