error 3996 vfp database using ODBCDIrect

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

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


' 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 <= CTOD
('11/11/2003'))")
qdf.CacheSize = 1
' Open recordset on QueryDef.

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

Set rst = qdf.OpenRecordset(4)

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

DSN - Microsoft Visual FoxPRO Driver


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.