Please help...

I get an error message when I use an ADO Connection object and Recordset Object and attempt an 'AddNew' to an Access 97 Database... the message is :
'ADODB.Recordset error '800a0cb3' The operation requested by the application
is not supported by the provider. /ifcsiteX/ImportAllFiles.asp, line 155 '


I can read from the database, but not write. The code is like this...



'Function Import(sFileName)
'Dim oConn
'dim sLainFaulknerDbPath

'sLainFaulknerDbPath = 'W:\Personal\NetPropeller.com\LainFaulkner\LainFaulkner.mdb'
'
'Open a connection to the database and tmp table
'Dim oLainFaulknerDB
'dim oTempImportTblRS
'Set oLainFaulknerDB = Server.CreateObject("'ADODB.Connection')
'Set oTempImportTblRS = Server.CreateObject('ADODB.Recordset')
'oLainFaulknerDB.Open 'provider=microsoft.jet.oledb.4.0; data source=' & sLainFaulknerDbPath

'oTempImportTblRS.Open 'select * From tmpImporttbl', oLainFaulknerDB, adOpenDynamic
' oTempImportTblRS.ActiveConnection = oLainFaulknerDB
' oTempImportTblRS.CursorLocation = adUseClient
' oTempImportTblRS.CursorType = adOpenKeyset
' oTempImportTblRS.LockType = adLockOptimistic
' oTempImportTblRS.Source = "select * From tbltmpImport"
' oTempImportTblRS.Open
'
'
' with oTempImportTblRS
' .movefirst
' .addnew
' .fields("Claim Number") = '123'
' .fields("Case Number") = '111'
' .Update
'oTempImportTblRS.Close
'Set oTempImportTblRS = Nothing
'oLainFaulknerDB.Close
'Set oLainFaulknerDB = Nothing

'End Function


Thanks if you can help,

Barry Thomas
Houston, TX

PS... I had to change all of my double quotes to single quotes to send this message