Something

Private Sub btnAjouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAjouter.Click
            Dim connSQL As New SqlConnection(ConfigurationManager.ConnectionStrings("CS_BD_Intranet").ConnectionString)

            If Not Request.QueryString.Item("PermID") = 62 Then

                ' Cas par défaut
                Dim cmdInsert As New SqlCommand("INSERT INTO Permissions_Usagers (PermID, Usager, Ajout_par, Ajout_le) VALUES (@PermID, @Usager, @Ajout_par, @Ajout_le)", connSQL)
                cmdInsert.Parameters.AddWithValue("@PermID", Request.QueryString.Item("PermID"))
                cmdInsert.Parameters.AddWithValue("@Usager", SqlDbType.VarChar)
                cmdInsert.Parameters.AddWithValue("@Ajout_par", SqlDbType.VarChar).Value = Session("Username")
                cmdInsert.Parameters.AddWithValue("@Ajout_le", SqlDbType.DateTime)

                For Each item As ListItem In lbUsagers.Items
                    If item.Selected = True Then
                        cmdInsert.Parameters.Item("@Usager").Value = item.Value
                        cmdInsert.Parameters.Item("@Ajout_le").Value = Now()
                        Try
                            connSQL.Open()
                            cmdInsert.ExecuteNonQuery()
                        Catch ex As SqlException
                            Response.Write(ex.Message & "<br>")
                        Finally
                            connSQL.Close()
                        End Try
                    End If
                Next
            Else
                ' Si le Permid est 62
                Dim GroupeADS As String
                Dim DomainADS As String

                Dim cmdInsert As New SqlCommand("INSERT INTO Permissions_LoginscriptSS200 (PermID, Usager, Ajout_par, Ajout_le, GroupeADS, Nom) VALUES (@PermID, @Usager, @Ajout_par, @Ajout_le, @GroupeADS, @Nom)", connSQL)

                GroupeADS = ddGroups.SelectedItem.ToString()

                Select Case GroupeADS
                    Case "Helpdesk1", "Helpdesk2", "Helpdesk3"
                        DomainADS = "SS200"
                    Case "46031", "46141"
                        DomainADS = "SS100"
                    Case Else
                        DomainADS = "AUTRE"
                End Select

                For Each item As ListItem In lbUsagers.Items
                    If item.Selected = True Then
                        cmdInsert.Parameters.AddWithValue("@PermID", Request.QueryString.Item("PermID"))
                        cmdInsert.Parameters.AddWithValue("@Usager", SqlDbType.VarChar)
                        cmdInsert.Parameters.AddWithValue("@Ajout_par", SqlDbType.VarChar).Value = Session("Username")
                        cmdInsert.Parameters.AddWithValue("@Ajout_le", SqlDbType.DateTime)
                        cmdInsert.Parameters.AddWithValue("@GroupeADS", DomainADS)
                        cmdInsert.Parameters.AddWithValue("@Nom", item.Value)
                        'cmdInsert.Parameters.Item("@Usager").Value = item.Value
                        'cmdInsert.Parameters.Item("@Ajout_le").Value = Now()
                        Try
                            connSQL.Open()
                            cmdInsert.ExecuteNonQuery()
                        Catch ex As SqlException
                            Response.Write(ex.Message & "<br>")
                        Finally
                            connSQL.Close()
                        End Try
                    End If
                Next

            End If

            FillUsagers()
            FillUsagersMembres()