Anwendung kann Teildatei nicht öffnen

[Jabs]

Hallo,
ich mache im Prinzip folgendes:

Dim cn as New OledbConnection("Provider=IBMDA400;...")
Dim cmd as New OledbCommand(sql,cn)
cmd.executeNonQuery
...
cmd.dispose
cn.close
cn.dispose

Aber ich schau's noch mal durch.
WRKOBJLCK zeigt keine Sperren an.
cu