Help with ADO and dynamic insert statement...

[candiazoo at attbi.com]

I have a program written in VB that creates an ado COMMAND object, sets the text
to a dynamic sql string (insert into table (?, ?, ?, etc))...  it works in VB...
this is my first foray into doing something similar with Python and it isn't
working.  Could someone take a gander at this and tell me what I might be doing
incorrectly?

Thanks!

Mike

============================================
segment of code below
============================================

    if status == SUCCESS:
        #   Generate our dynamic insert statement, create new
        #   ADODB connection and command objects which we'll
        #   use to connect to our access database (via the
        #   CatalogMDB DSN object)...

        sql = "insert into works (title, wrk_inst, trs_inst, aas_inst) " + \
              "values (?, ?, ?, ?)"
    
        cnnTempDB = win32com.client.Dispatch('ADODB.Connection')
        cmdInsert = win32com.client.Dispatch('ADODB.Command')
        
        cnnTempDB.Open(TEMP_DB)
        cmdInsert.ActiveConnection = cnnTempDB
        cmdInsert.CommandType = 1
        cmdInsert.CommandText = sql
        
        if not rstOracle.EOF:
            #   Let's bind up our dynamic sql statement...
            
            cmdInsert.Parameters.Append(cmdInsert.CreateParameter("title", 200,
1, len(rstOracle.Fields("title").Value), rstOracle.Fields("title").Value))
            cmdInsert.Parameters.Append(cmdInsert.CreateParameter("wrk_inst",
131, 1, 4, rstOracle.Fields("wrk_inst").Value))
            cmdInsert.Parameters.Append(cmdInsert.CreateParameter("trs_inst",
131, 1, 4, rstOracle.Fields("trs_inst").Value))
            cmdInsert.Parameters.Append(cmdInsert.CreateParameter("aas_inst",
131, 1, 4, rstOracle.Fields("aas_inst").Value))
            cmdInsert.Execute()
            rstOracle.MoveNext()