Dim connect As New SqlConnection
        Dim sqlq As String = "update lki_base set vkp = (@vkp) where lki =" & _
          "'10021'"
        Dim cmd As New SqlCommand(sqlq, connect)
        connect.ConnectionString = My.Settings.connstring
        With cmd
            With .Parameters
                .AddWithValue("@vkp", dgv1.Item(3, 0).Value)
            End With
            .Connection = connect
            connect.Open()
            .ExecuteNonQuery()
            connect.Close()
            connect.Dispose()
        End With