error 3996 vfp database using ODBCDIrect

This error message is showns in vb6.
This code
'///////////////////////////////////////////////////////

' Create ODBCDirect workspace
Set wrk = DBEngine.CreateWorkspac
("ODBCDirect", "Admin", "", dbUseODBC
' Set default cursor driver to dbUseClientBatchCursor
wrk.DefaultCursorDriver = dbUseServerCurso

' Create connect string
strConnect = "ODBC;DSN=333
' Open connection
Set cnn = wrk.OpenConnection("", dbDriverNoPrompt,
False, strConnect
' Open recordset on connection

Set qdf = cnn.CreateQueryDef("", "SELECT * from dayn1
WHERE ind_z in (SELECT ind_z from naznach5 WHERE
day_1>=CTOD('08/08/2003') AND day_1 <= CTO
('11/11/2003'))"
qdf.CacheSize =
' Open recordset on QueryDef

' Set rst =
' cnn.OpenRecordset("SELECT * from dayn1 WHERE ind_z
in (SELECT ind_z from naznach5 WHERE day_1>=CTO
('08/08/2003') AND day_1 <= CTOD('11/11/2003'))",
dbOpenDynamic, 0, dbOptimistic

Set rst = qdf.OpenRecordset(4

'///////////////////////////////////////////////////////

DSN - Microsoft Visual FoxPRO Drive

When i'm trying connect the same database using vb.net
and OLEDB for ODBC driver or the same DSN, on fill event
application is closing and trying to send error message
to microsoft (Windows XP). But then recordset some
smaller then 100,000 records, ado.net takes records very
long