VB 6.0 ADOBB.Recordset Problem

[Schandra]

Hallo liebe Gemeinde!

Ich verzweifle an folgendem Problem:
SQL Server 2000 wird durch SQL Server 2005 Express ersetzt.
Zugriff auf den SQL Server über VB 6.0 Programm -> ODBC -> SQL Native Client.
Lesen über Select: OK
Daten ändern in einem Data Grid: OK
Lesen und Schreiben über MS Access und gleicher ODBC Verbindung: OK

aber:

Dim sql As String
Dim Dr_Seek As ADODB.Recordset

sql = "SELECT * from " & TableName
Set Dr_Seek = New Recordset

Dr_Seek.Open sql, DataEnvMAT_Str, adOpenDynamic, adLockOptimistic
Dr_Seek.Delete

Set Dr_Seek = Nothing

... beim Delete über das Recordset kommt die verwirrende Fehlermeldung:

Could not find server 'xxx' in sysservers. Execute sp_addlinkedserver to add the server to sysservers.

Gleiches geschieht beim Update von mehreren Datensäten über ein Recordset.
Beim SQL Server 2000 trat das Problem nicht auf.

Kann mir jemand helfen??

- Vielen Dank -

Schandra