Me.SqlConnection1.ConnectionString = "data source=mbals004;initial" & _
  "catalog=k1d001mgmtsys;integrated security=SSPI;persi" & _
        "st security info=False;workstation id=local´;packet size=4096"

Private Sub btninsert_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btninsert.Click
 
        Dim t, r, s As String
        r = txttragl_code.Text
        s = txtmax_last1.Text
        t = ddlkalgr_gzs.SelectedItem.Text
        Try
            SqlConnection1.Open()
        Catch ex As System.Exception
        End Try
        cmdinsert.Parameters.Add("@tragl", r)
        cmdinsert.Parameters.Add("@max", s)
        cmdinsert.Parameters.Add("@kalgr_gzs", t)
 
        cmdinsert.ExecuteNonQuery()
        SqlConnection1.Close()
        DataSet11.Clear()
        SqlDataAdapter1.Fill(DataSet11)
        DataGrid1.DataBind()
 
 
    End Sub