How to Update a UserTable

Hi Masters

I have a Form which was designed in Screen Painter which is also bounded to a UserTable , I am able to Add the details from SBO when my Application Runs But i am unable to UPDATE the same, could you please tell me the entire query to update my Table

This is my Method to Add ,i am able to Add But please provide me the query for UPDATE

Public Sub addPOReq(ByVal objForm As SAPbouiCOM.Form)

Dim strSQL As String

Dim objRS As SAPbobsCOM.Recordset

Dim intCode As Integer

Dim intDocEntry As Integer

intCode = objAddOn.objGenFunc.GetCode("[@ALTPOREQHD]")

intDocEntry = GetNextCode()

strSQL = "INSERT INTO [@ALTPOREQHD](Code, Name, U_DocEntry, U_DocNum, U_Status, U_DeliveryDate, U_DocDate, U_EmpCode, U_EmpName) VALUES(" & _

" " & intCode & _

",'" & intCode & "'" & _

", " & intDocEntry & _

",'" & intDocEntry & "'" & _

",'" & "O" & "'" & _

",'" & objAddOn.objGenFunc.GetDateTimeValue(objForm.Items.Item("13").Specific.String).ToString("yyyy-MM-dd") & "'" & _

",'" & objAddOn.objGenFunc.GetDateTimeValue(objForm.Items.Item("15").Specific.String).ToString("yyyy-MM-dd") & "'" & _

",'" & objForm.Items.Item("4").Specific.String & "'" & _

",'" & objForm.Items.Item("7").Specific.string & "'" & _

")"

objRS = objAddOn.objCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)

objRS.DoQuery(strSQL)

objAddOn.objApplication.StatusBar.SetText("Added successfully ")

End Sub

Regards

Mohamed