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?