Por cierto.. si estas manejando el ADO anterior porque no pruebas hacer el insert ó update de ésta forma:
Cita: ...
..
strSQL = "insert into prueba (campo1, campo2, campoN) values ('" & sCampo1 & "','" & sCampo2 & "')"
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing