Private Sub FChangeWeightLastUpdtWarning_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = FORM_BACK_COLOR
        Me.MY_DOTNETAPPS_SETTINGSTableAdapter.Connection.ConnectionString = CONEXSTRING_SYSADM
        TB_MONTHS.Value = GetDataUtils.GetWeightWarning(Environment.UserName).ToString
End Sub

Public Shared Function GetWeightWarning(ByVal userName As String) As Integer
        Dim sql As String = "SELECT " & _
            "Value AS WEIGHT_LAST_UPDATE_WARINING " & _
            " FROM dbo.My_APPLICATION_DETAIL " & _
            "WHERE (Application_ID = 'KUDU_CRA') AND (Detail_ID = 'WEIGHT_LAST_UPDATE_WARINING') AND (User_ID = @UserId) "
        Dim params(0) As SqlParameter
        params(0) = New SqlParameter("@UserID", userName)
        GetWeightWarning = GetWeightMonthValue(sql, params)
    End Function

Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click

        Try
            Me.Validate()
            Me.My_DOTNETAPPS_SETTINGSBindingSource.EndEdit()
            GetDataUtils.SaveWeightWarning(TB_MONTHS.Value, DATABASE_NAME)
            Me.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Public Shared Function SaveWeightWarning(ByVal months As String, ByVal MySelectedDB As String) As String
        Dim sql As String = "Update dbo.Application_Detail set Value=@months where Detail_ID='WEIGHT_LAST_UPDATE_WARNING' and Application_ID='MY_CRA'" & _
        " and USER_ID in (select USER_ID from dbo.Application_Detail where Application_ID='MY_CRA' and Detail_ID='DatabaseName' and VALUE=@MyDB)"
        Dim params(1) As SqlParameter
        params(0) = New SqlParameter("@months", months)
        params(1) = New SqlParameter("@MyDB", MySelectedDB)
        SaveWeightWarning = SaveDataValue(sql, params)
    End Function

 Protected Shared Function GetWeightMonthValue(ByVal SQL As String, ByVal params As SqlParameter()) As Integer
        Dim conn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("My_Crating.My.MySettings.Cstring").ConnectionString)
        Dim da As SqlDataAdapter = New SqlDataAdapter()
        Dim dt As New DataTable
        Dim cmd As SqlCommand = conn.CreateCommand()
        cmd.CommandText = SQL
        cmd.Parameters.AddRange(params)
        da.SelectCommand = cmd
        conn.Open()
        da.Fill(dt)
        conn.Close()
        If dt.Rows.Count <> 0 Then
            GetWeightMonthValue = dt.Rows(0).Item(0).ToString
        Else : GetWeightMonthValue = "6"
        End If
    End Function

 Protected Shared Function SaveDataValue(ByVal SQL As String, ByVal params As SqlParameter())
        Dim conn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("My_Crating.My.MySettings.Cstring").ConnectionString)
        Dim da As SqlDataAdapter = New SqlDataAdapter()
        Dim cmd As SqlCommand = conn.CreateCommand()
        cmd.CommandText = SQL
        cmd.Parameters.AddRange(params)
        da.UpdateCommand = cmd
        conn.Open()
….. тут не понятно что писать, чтоб скрипт начал исполняться
        conn.Close()
    End Function

        Dim da As SqlDataAdapter = New SqlDataAdapter()
..
       da.UpdateCommand = cmd