Non dovevi aprire un altro recordset....

Dim strumento As String
strumento = cmbStrumento.ItemData(cmbStrumento.ListIndex)
strSQL = "SELECT Marca,Modello FROM SchedaStrumento WHERE ID_STRUMENTO='" & strumento & "'"


DoEvents
dbConn.Execute (strSQL)
il problema è che quando esegui Execute devi assegnarlo a qualcosa!!!
quindi :

set dbRecord=dbConn.Execute (strSql).

col comando:
rsRecord.open "SchedaStrumenti"
tu apri la tabella così com'è, quindi ti prende il primo.

L'errore che dicevi prima è dovuto sempre alla mancanza di
Set dbRecord=dbConn.Execute (strSql).

Quindi la select che dici è giusta, xò non la usi....