Laufzeitfehler '3251':
Das aktuelle Recordset unterstützt keine Aktualisierung. Hierbei 
handelt es sich möglicherweise  um eine Einschränkung seitens des
Providers oder des gewählten LockTypes.

  Dim conn As ADODB.Connection
  Dim rcs As ADODB.Recordset
  Dim strSQL As String
 
  Set conn = New ADODB.Connection
  conn.Provider = "MSDAORA"
  conn.ConnectionString = "Data Source=xxx.xxx;User Id=xxx;Password=xxx;"
  conn.Open
 
  Set rcs = New ADODB.Recordset
 
  strSQL = "select id, name, pass, wahr, falsch from person"
 
  rcs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
  rcs.AddNew ' Hier kommt der Laufzeitfehler