in questo punto mi dà errore e mi dice : Chiamata di routine o
argomento non valido.



Private Sub cmdSalva_Click()
Dim collStrumento As New Collection
Dim dbConn As New ADODB.Connection
Dim dbRec As New ADODB.Recordset
Dim strConnectionString As String
Dim strSQL As String
Dim iList As String
Dim iComboStru As String
Dim iListStaff1 As String
iListStaff1 = ListStaff1.Text
iComboStru = cmbStrumento.Text
iList = lstStru.Text
If cmbStrumento.Text = "" Or lstStru.Text = "" Or ListStaff1.Text = "" Then
MsgBox "Seleziona tutti campi", vbInformation
Else



g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbRec.Open "SchedaStrumento", dbConn, adOpenForwardOnly, adLockOptimistic, -1

While Not dbRec.EOF
strumento = dbRec!Marca & " | " & dbRec!Modello & " | " & dbRec!NumSerie & " | " & dbRec!Produttore & "|" & dbRec!IdentInvOsp & "|" & dbRec!TipoSupporto & "|" & dbRec!Risoluzione

Rem cmbStrumento.AddItem strumento
collStrumento.Add Int(dbRec("ID_Scheda")), strumento
dbRec.MoveNext

Wend
iStrumento = collStrumento(lstStru.Text)


strSQL = "INSERT INTO Intervento (ID_Scheda) VALUES ('" & iStrumento & "')"

DoEvents
dbConn.Execute (strSQL)
MsgBox ("Dati inseriti")
dbRec.Close
Set dbRec = Nothing
dbConn.Close
Set dbConn = Nothing
End If


Dim dbConn1 As New ADODB.Connection
Dim dbRec1 As New ADODB.Recordset
Dim collStaff1 As New Collection
Dim strSQL1 As String
Dim iStaff1 As String
Dim iStaff As String

g_strConnectionString = "maia"
dbConn1.ConnectionString = g_strConnectionString
dbConn1.Open
dbRec1.Open "Staff", dbConn1, adOpenForwardOnly, adLockOptimistic, -1

While Not dbRec1.EOF
Dim staff As String
staff = dbRec1!Cognome & " | " & dbRec1!Nome & " | " & dbRec1!Ruolo
collStaff1.Add (dbRec1("ID_Med")), staff
dbRec1.MoveNext

Wend

iStaff1 = collStaff1(ListStaff1.Text)------------>


strSQL1 = "INSERT INTO Intervento (ID_Med1) VALUES ('" & iStaff1 & "')"

DoEvents
dbConn1.Execute (strSQL1)
MsgBox ("Dati inseriti")
dbRec1.Close
Set dbRec1 = Nothing
dbConn1.Close
Set dbConn1 = Nothing




End Sub