Updatebatch - fejl 3251

Hej!

I want to save a recordset created from my workbook to a Oracle tabel using the recordset.updatebatch. As I am using to different connectionstrings I am cloning one recordset to another. However when trying to update I get "Run-time error 3251". I have posted to code below - can anybody help me? Is it at all posible to clone an entire recordset and then perform an updatebatch?

strSQL="select * from [Sheet1$]"
theRes.open strSQL, theConn, adOpenForwardOnly, adLockReadOnly

strSQL2="Select * from DBTable where 1=2"
rst.open strSQL2, cnn, adOpenForwardOnly, adLockReadOnly

Set rst=Clone(theRes)
rst.Updatebatch