Nota per il moderatore:
ad esser precisi le regole le ho lette ma sotto
il forum programmazione non si parla di quel che dici tu,
poi per scrupolo sono andato sulle regole di VB e VB.Net
e mi sono accorto che effettivamente c'è qualcosa,
peccato che sia segnalato come consiglio utile e non come regola!

detto questo che mi sembrava doveroso perchè ammiro e rispetto il vostro lavoro e vi ringrazio perchè senza di voi non saprei proprio come fare, però la ripresa era un po' eccessiva.

cmq nel frattempo ho risolto
codice:
Public Function liberatavolo()
Dim nometavolo As Control
Set nometavolo = Forms!Mcontotavolo!cercaconto
 DoCmd.GoToControl nometavolo
 pulsante = ActiveControl.Name
verde = RGB(0, 255, 0)
carica = "c:/icone/v" & pulsante & ".bmp"
ActiveControl.Picture = carica
ActiveControl.ForeColor = verde
End Function
ciauz