Ratna,

Thanks for the help. I added the following to the update button click, but
am still gettting the same error:

Dim cmd As New OracleCommand("Update IN_DRAFT_MAIN set MSG_TYPE= :MSG_TYPE
WHERE TRANS_SEQ_NBR= :TRANS_SEQ_NBR")

cmd.Parameters.Add(New OracleParameter(":MSG_TYPE", OracleType.Number, 1,
"MSG_TYPE"))
cmd.Parameters.Add(New OracleParameter(":TRANS_SEQ_NBR", OracleType.Number,
1, "TRANS_SEQ_NBR"))

cmd.Connection = Conn
Conn.Open()
da.UpdateCommand = cmd
cmd.ExecuteNonQuery()

Here is all the code:

Dim Conn As New OracleConnection("Data Source= " & DataBase & "; user id = "
& username & "; password =" & userpassword & "")

   Dim da As New OracleDataAdapter
   Dim ds As New DataSet
   Dim ts_InDraftMain As DataGridTableStyle = New DataGridTableStyle
   
Private Sub TransactionDetail_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

       Me.Cursor = Cursors.WaitCursor

       ' START of IN_DRAFT_MAIN Grid load  *************
da = New OracleDataAdapter("select TRANS_SEQ_NBR, MSG_TYPE from
IN_DRAFT_MAIN WHERE TRANS_SEQ_NBR = '" & passedTSN & "'", Conn)
           da.Fill(ds, "IN_DRAFT_MAIN")
           DG_InDraftMain.DataSource = ds
           DG_InDraftMain.DataMember = "IN_DRAFT_MAIN"

           ts_InDraftMain.MappingName = "IN_DRAFT_MAIN"

           'clears old table and column styles before creating new one.
           DG_InDraftMain.TableStyles.Clear()
           ts_InDraftMain.GridColumnStyles.Clear()

           Dim col1Grid1 As New DataGridTextBoxColumn
           Dim col2Grid1 As New DataGridTextBoxColumn
           
           With col1Grid1
               .MappingName = "TRANS_SEQ_NBR"
               .HeaderText = "TRANS_SEQ_NBR"
               .NullText = String.Empty
           End With

           With col2Grid1
               .MappingName = "MSG_TYPE"
               .HeaderText = "MSG_TYPE"
               .NullText = String.Empty
           End With

           With ts_InDraftMain.GridColumnStyles
               .Add(col1Grid1)
               .Add(col2Grid1)
           End With

           ' Add the GridColumnStyles to the aGridTableStyle.
           DG_InDraftMain.TableStyles.Add(ts_InDraftMain)

   End Sub

   Private Sub bt_update_InDraftMain_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles bt_update_InDraftMain.Click

           Dim cmd As New OracleCommand("Update IN_DRAFT_MAIN set MSG_TYPE=

           cmd.Parameters.Add(New OracleParameter(":MSG_TYPE",
OracleType.Number, 1, "MSG_TYPE"))
           cmd.Parameters.Add(New OracleParameter(":TRANS_SEQ_NBR",
OracleType.Number, 1, "TRANS_SEQ_NBR"))
           cmd.Connection = Conn
           Conn.Open()
           da.UpdateCommand = cmd
           cmd.ExecuteNonQuery()

   End Sub