If EditMode = MODE_ADD Then
Add:
      sSQL = "INSERT INTO Nut_StoriaClinica (Vis_ID, Ana_ID, VISITDATE) VALUES (" & _
                  lVisID & ", " & _
                  Trim$(VIS.AnagCode) & ", " & _
                  Str$(VIS.DaTim) & ")"
      ExecSQL ADOCnn(iDBData9).Connection, sSQL
      Set rs = ADOCnn(iDBData9).Connection.Execute("SELECT @@identity")
      lID = rs(0)

      sSQL = "INSERT INTO Nut_StoriaClinica_Stringhe (StoriaClinica_ID) VALUES (" & _
                  lID & ")"
      ExecSQL ADOCnn(iDBData9).Connection, sSQL
   Else
      sSQL = "SELECT TOP 1 ID From Nut_StoriaClinica WHERE Vis_ID=" & lVisID
      OpenRecordset rs, sSQL, ADOCnn(iDBData9).Connection
      If RSHasRecords(rs) Then
         lID = rs(0)
      Else
         GoTo Add
      End If
   End If