intanto problema n. 1:
per caricare la combo non fare

Set dbRec = dbConn.Execute(strSQL)
Do While dbRec.EOF = False
DBcmbStrumento.BoundText=dbRec("NomeStrumento")
dbRec.MoveNext
Loop


ma semplicemente


Set dbRec = dbConn.Execute(strSQL)
DBcmbStrumento.ListField = "NomeStrumento"

una domanda: ma che db hai, access o sql?