Аксессовский ODBC не хочет читать МЕМО

[МаринаМ]

Всем привет!
Из VB6 читаю через ODBC из Аксесса 2000. Все читает без проблем, а вот МЕМО-поле не хочет. При обращении уже конкретно к полю выдает "S1109 Позиция курсора не опеределена.".
Код:

Dim qdf As QueryDef, rs As Recordset
Dim ws As Workspace, conn As Connection

Set ws = CreateWorkspace("wsODBC", "", "", dbUseODBC)
Set conn = ws.OpenConnection("connODBC", dbDriverNoPrompt, False, "ODBC;DSN=" & strDSN)
''strSQL - обычный Select
Set qdf = conn.CreateQueryDef("qdfODBC", strSQL)
Set rs = qdf.OpenRecordset()
If rs.EOF = False Then ConnectTable = rs.Fields(0)

Победить никак нельзя?

[alibek]

Может использовать провайдер OLEDB?

[МаринаМ]

Если не сложно, дайте какой-нибудь пример или где посмотреть...

[alibek]

Укороченный вариант:

Код: Выделить всё

Dim cnn As New ADODB.Connection
cnn.Open "Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb"
With cnn.Execute("select * from table1")
  If Not .EOF Then ConnectTable = .Fields(0)
End With


[МаринаМ]

Спасибо большущее alibek! Завтра буду пробовать.

[МаринаМ]

Если кому-то интересно, получилось так:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

' открываем Connection с DSN и ODBC-тэгами.
Set conn = New ADODB.Connection
conn.ConnectionString = "DSN=ProKund;UID="";PWD="";"
conn.Open

Set rs = New ADODB.Recordset
rs.Open strTable, conn, adOpenKeyset, adLockOptimistic, adCmdTable
rs.MoveLast
rs.MoveFirst
rs.Find strSearch
If rs.EOF = False Then readProKund = rs.Fields(strField)