Il mio problema è questo:

strSQL = "SELECT Marca,Modello FROM SchedaStrumento WHERE ID_STRUMENTO='" & strumento & "'"

qui è giusto in strumento strumento mi va a prendere in tabella
Scheda Strumento L'ID_Strumento della combo selezionata.

Il mio problema è questo:
a video in una listbox o in qualsiasi altra cosa vorrei vedere
strSQL = "SELECT Marca,Modello cioè il risultato della della select,
io ho provato a fare questo, non so perchè mi dà questo errore forse
non lo inserisco nel punto giusto?O è sbagliato proprio il codice?

Dim iMarca,iModello As String
iMarca= dbRec("Marca") ---> Mi da errore mi dice tipo non corrispondente
iModello= dbRec ("Modello")
lstStr.AddItem iMarca
lstStru.AddItem iModello