Help with updateing Serial Number

Yahoo Archive
1
Vantage 8.03.408a Progress

I am trying to update Character01 field of SerialNo using the BO. When I use the code listed below, I get the error "The Transaction Source is Invalid". Anyone have an idea why its not working?

Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnEpiCustom1.Click
'// ** Place Event Handling Code Here **
Dim edvSerialNo as EpiDataView = Ctype(oTrans.EpiDataViews("SerialNo"), EpiDataView)
If edvSerialNo.HasRow Then
Dim adSerialNo As SerialNoAdapter = New SerialNoAdapter(SerialNumberForm)
adSerialNo.BOConnect
adSerialNo.GetByID(edvSerialNo.DataView(edvSerialNo.Row)("PartNum"), edvSerialNo.DataView(edvSerialNo.Row)("SerialNumber"))
If adSerialNo.SerialNoData.Tables("SerialNo").Rows.Count > 0
adSerialNo.SerialNoData.SerialNo(0)("Character01") = txtEpiCustom1.Text
adSerialNo.Update()
End If
adSerialNo.Dispose()
End If
edvSerialNo = Nothing
End Sub