TEXTBOX

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Codigo = Request.QueryString([Ô]Codigo[Ô]).ToString
            strSelecionar = [Ô]SELECT * FROM cadrumo where Rumo_Id = [ô][Ô] & Codigo & [Ô][ô][Ô]
            Conexao.Conectar()
            Conexao.Comando = New MySqlCommand(strSelecionar, Conexao.Conexao)
            Conexao.da = New MySqlDataAdapter(strSelecionar, Conexao.Conexao)
            Conexao.dr = Conexao.Comando.ExecuteReader [ô] Executar o Paramentro
            If Conexao.dr.Read Then [ô] Se existe Registro Carrega os campos
                txtUsuario.Text = Conexao.dr([Ô]Usuario[Ô]).ToString
                txtDescricao.Text = Conexao.dr([Ô]Descricao[Ô]).ToString  [ô] Carrega a Variavel com o valor do registro na tabela
                If Conexao.dr([Ô]Data[Ô]).ToString <> [Ô][Ô] Then
                    txtData.Text = Format(CType(Conexao.dr([Ô]Data[Ô]).ToString, Date), [Ô]dd/MM/yyyy[Ô]).ToString  [ô] Carrega a Variavel com o valor do registro na tabela
                End If
                If Conexao.dr([Ô]Data_OK[Ô]).ToString <> [Ô][Ô] Then
                    txtDtOk.Text = Format(CType(Conexao.dr([Ô]Data_OK[Ô]).ToString, Date), [Ô]dd/MM/yyyy[Ô]).ToString [ô] Carrega a Variavel com o valor do registro na tabela
                End If
                txtSituacao.Text = Conexao.dr([Ô]Situacao[Ô]).ToString  [ô] Carrega a Variavel com o valor do registro na tabela
                Conexao.Desconectar()
            End If
        Catch ex As Exception
            MsgBox(Err.Description)
            Conexao.Desconectar()
        End Try
    End Sub

    Protected Sub btnAlterar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAlterar.Click
        Try
            Conexao.Conectar()

            strAlterar = [Ô]UPDATE cadrumo SET Usuario = [ô][Ô] & Me.txtUsuario.Text & [Ô][ô],[Ô] & _
                         [Ô] Descricao = [ô][Ô] & Me.txtDescricao.Text & [Ô][ô],[Ô] & _
                         [Ô] Data = [ô][Ô] & Format(CType(Me.txtData.Text, Date), [Ô]yyyy-MM-dd[Ô]) & [Ô][ô],[Ô] & _
                         [Ô] Data_OK = [ô][Ô] & Format(CType(Me.txtDtOk.Text, Date), [Ô]yyyy-MM-dd[Ô]) & [Ô][ô],[Ô] & _
                         [Ô] Situacao = [ô][Ô] & Me.txtSituacao.Text & [Ô][ô][Ô] & _
                         [Ô] where Rumo_Id = [ô][Ô] & Codigo & [Ô][ô][Ô]
            Conexao.AlterarDados(strAlterar)
            Conexao.Desconectar()
            [ô]MsgBox([Ô]REGISTRO ALTERADO COM SUCESSO[Ô])
            [ô]Response.Redirect([Ô]Default.aspx[Ô])
        Catch ex As Exception
            Conexao.Desconectar()
            MsgBox(Err.Description)
        End Try
    End Sub