Adesso mi si apre e lo posso vedere a video questo perchè dovevo
aprire un altro record quello di scheda strumento
Problema:adesso vedo a video marca e modello ma non quello della
select mi stampa sempre il primo che ho inserito come posso fare?


Private Sub cmbStrumento_LostFocus()
Dim collStrumento As New Collection
Dim dbConn As New ADODB.Connection
Dim dbRec As New ADODB.Recordset
Dim dbRecord As New ADODB.Recordset
Dim strConnectionString As String
Dim strSQL As String
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbRec.Open "Strumenti", dbConn, adOpenForwardOnly, adLockOptimistic, -1
Dim index
While Not dbRec.EOF
cmbStrumento.ItemData(index) = dbRec("ID_Strumento")
index = index + 1
dbRec.MoveNext
Wend

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


DoEvents
dbConn.Execute (strSQL)
dbRecord.Open "SchedaStrumento", dbConn, adOpenForwardOnly, adLockOptimistic, -1
Dim iMarca, iModello As String
iMarca = dbRecord("Marca")
iModello = dbRecord("Modello")
lstStru.AddItem iMarca
lstStru.AddItem iModello
dbRecord.Close
dbRec.Close
Set dbRecord = Nothing
Set dbRec = Nothing
dbConn.Close
Set dbConn = Nothing
End Sub