An example of an Update command

Attribute VB_Name = "Update Data"
 Sub Update_Data()
Attribute Update_Data.VB_ProcData.VB_Invoke_Func = " \n14"

  ' Create and initialize the necessary objects
  Dim OraSession As Object
  Dim OraDatabase As Object
  Dim EmpDynaset As Object
  Dim ColNames As Object
  Set OraSession = CreateObject("OracleInProcServer.XOraSession")
  Set OraDatabase = OraSession.OpenDatabase("2:", "scott/tiger", 0&)
  Set EmpDynaset = OraDatabase.DbCreateDynaset("select * from emp", 0&)
  Set ColNames = EmpDynaset.Fields

  i = 2
  
  ' the BeginTrans and CommitTrans are optional
  OraSession.BeginTrans
  While Worksheets("DataSheet").Cells(i, 1).Value <> ""
    EmpDynaset.dbedit
    For j = 1 To ColNames.Count
      ColNames(j - 1).Value = Worksheets("DataSheet").Cells(i, j).Value
    Next j
    EmpDynaset.dbupdate
    EmpDynaset.dbmovenext
    i = i + 1
  Wend
  OraSession.CommitTrans

End Sub