Access To Oracle Program Conversion

I have an visual basic 6 app that about 15 user's use to enter production into an access
database. I would like to change this program to use an Oracle database instead. Anyone know the in's and out's of changing from Access to Oracle database's ??? Any help would be greatly appreciated. Thanks....

Here's a snippet of code that i'm using to write to the access database:

Rem: Define type.

Type Transaction

    Station As Variant
    machine As Variant
    empnum As Variant
    EmpName As Variant
    adate As Date
    atime As Variant
    mfgordnum As Variant
    process As Variant
    signon As Variant
    startorder As Variant
    startbox As Variant
    Pcs As Variant
    Qty As Variant
    Stage As Variant
    ItemNumber As Variant
    DyeLotNumber As Variant
    OrderQty As Variant
    PutUpType As Variant
    PutUpUOM As Variant
    PutUpLen As Variant
    Plant As Variant
    Location As Variant
    ProdFamily As Variant
    DyeShift As Variant
    DyeRange As Variant
    TicketOnWeb As Variant

End Type
Global TransactionRecord(5) As Transaction

Rem: Database is up-dated using:
Rem: Global RS As Recordset 'RecordSet for TransRecord1

With RS

            .AddNew     'ADD NEW


            !ordernumber = TransactionRecord(StnHasFocus).mfgordnum

            !ItemNumber = TransactionRecord(StnHasFocus).ItemNumber

            !style = Left(TransactionRecord(StnHasFocus).ItemNumber, 6)

            !Width = Mid(TransactionRecord(StnHasFocus).ItemNumber, 7, 4)

            !Treatment = Mid(TransactionRecord(StnHasFocus).ItemNumber, 11,

1)


            !color = Mid(TransactionRecord(StnHasFocus).ItemNumber, 12, 4)

            !DyeLotNumber = TransactionRecord(StnHasFocus).DyeLotNumber

            !OrderQty = TransactionRecord(StnHasFocus).OrderQty

            !PutUpType = TransactionRecord(StnHasFocus).PutUpType

            !PutUpUOM = TransactionRecord(StnHasFocus).PutUpUOM

            !PutUpLen = TransactionRecord(StnHasFocus).PutUpLen

            !Plant = TransactionRecord(StnHasFocus).Plant

            !Location = TransactionRecord(StnHasFocus).Location

            !ProdFamily = TransactionRecord(StnHasFocus).ProdFamily

            !MachNumber = Val(TransactionRecord(StnHasFocus).machine)

            !empNumber = TransactionRecord(StnHasFocus).empnum

            !TranCodeType = "A"             'Left 1 digit of scanned code.

            !TranCodeNumber = 1             'Remaining digits of scaned

code: nA001=start order, nA002=end order.


            !transqty = 0                   'Not applicable for a start

order.


            !NumberOccurs = 0               'Only defects are "1", otherwise

zero.


            !TransDate = Date

            !TransTime = Time()

            '!TicketOnWeb = ""               'Applies only to starting or
ending a box.


            !SecondsOrwaste = ""            'Type Code: (W)aste, (S)econds,

(A)Start order, (B)End Order, (Y)arn,


            !hours = -Hour(Time()) - Minute(Time()) / 60    'Hours for Start

are negative.


            !TicketOnWeb = TransactionRecord(StnHasFocus).TicketOnWeb

            !Dye_Shift = TransactionRecord(StnHasFocus).DyeShift

            !Dye_Range = TransactionRecord(StnHasFocus).DyeRange

            !torf = True


            .Update     'UPDATE/SAVE
        End With

-----= Posted via Newsfeeds.Com, Uncensored Usenet News =----- http://www.newsfeeds.com - The #1 Newsgroup Service in the World! -----== Over 80,000 Newsgroups - 16 Different Servers! =----- Received on Fri Jun 15 2001 - 07:53:24 CDT