Visual Basic

Private Sub convertCoop(ByVal coop As String, ByVal portal As String)

        Dim conn1 As New SqlClient.SqlConnection("Data Source=10.0.0.70;User ID= sysadm;Password=sysadm;Initial Catalog=SPGA_Latihan;Persist Security Info=True;")
        Dim comm As SqlClient.SqlDataAdapter = Nothing
        Dim ds As DataSet = Nothing


        Try
            Dim strSQL2 As String = "SELECT folder, portal FROM kodPortal WHERE folder ='" & coop & "'"

            conn1.Open()
            comm = New SqlClient.SqlDataAdapter(strSQL2, conn1)
            comm.Fill(ds, "kodPortal")

            portal = ds.Tables(0).Rows(0).Item("portal")

            conn1.Close()

        Catch ex As Exception

            MsgBox(ex.Message)

        Finally
            If Not conn1 Is Nothing And conn1.State = ConnectionState.Open Then
              conn1.Close()
            End If
            conn1 = Nothing
            comm = Nothing
        End Try
    End Sub

For Each dal As ArrayList In My.Settings
                dal.RemoveAt(Me.TabControl.SelectedIndex)
            Next