Mi dà errore qua!!!Non mi registra l' ID e di conseguenza non
lo posso andare ad inserirlo nella seconda query.


strSQL = "INSERT Into Staff (Nome,Cognome,Alias) VALUES ('" & iNome & "','" & iCognome & "','" & iAlias & "')"


DoEvents
dbConn.Execute strSQL

dbRec.Open "Staff", dbConn, adOpenForwardOnly, adLockOptimistic, -1
While Not dbRec.EOF
Dim collRuolo As New Collection
Dim Alias
Alias = dbRec!Alias
collRuolo.Add Int(dbRec("ID_Med")), Alias
dbRec.MoveNext
Wend
Dim aRuolo
aRuolo = collRuolo(txtAlias.Text)----->
DoEvents
strSQL1 = "INSERT Into Ruolo(Ruolo,DataInizio,aRuolo) VALUES('" & iRuolo & "', '" & iData & "','" & aRuolo & "')"
dbConn.Execute strSQL1

MsgBox ("Dati inseriti")
dbConn.Close
Set dbConn = Nothing
End If