a=Label1.Caption

prova cosi:

...WHERE TotselMovmedic.prodottom = " & a & ")"