Al di là del fatto che quello che hai scritto è ORRIBILE (sto scherzando)
Beh, se hai l'id (che penso sia lo stesso del record) salvato nell'itemdata della combo... basta che fai:

sql = "SELECT * FROM Anagrafica where ID = " & me.combo1.itemdata(me.combo1.listindex)

et voilà...
prova e fai sapere

ciao ciao
Lele