при открытии Recordset'a возникает переполнение стека

[MrGB]

при открытии Recordset:

Set rec = New ADODB.Recordset
               
        With rec
            Set .ActiveConnection = cnn
            .Source = "SELECT * FROM Magazin m WHERE m.abs_client_code = '" & Me.txtClientCode.Text & "'"
            .LockType = adLockOptimistic
            .CursorType = adOpenKeyset
            .CursorLocation = adUseClient
            .Open
        End With

соединение:

 Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\10.124.120.18\_Server.mdb"

С моего компьютера работает, а с другого - ошибки: "Out of stack (28)", либо "Method Open failed".
Подскажите, пожалуйста, в чем проблема?

[Teslenko_EA]

Здравствуйте MrGB.
попробуйте воспользоваться подобной конструкцией использования подключения:

Const sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\10.124.120.18\_Server.mdb"
Const sSql = "SELECT * FROM Magazin m WHERE m.abs_client_code = '"
Dim cnn As ADODB.Connection, rec As ADODB.Recordset, s$

Set cnn = ADODB.Connection
cnn.Open sCon

s = sSql + Me.txtClientCode.Text + "'"

Set rec = New ADODB.Recordset
rec.Open s, cnn, adOpenKeyset, adLockOptimistic
...

думаю у Вас всё получится.
Евгений.

[MrGB]

Сообщение от Teslenko_EA

...думаю у Вас всё получится.
Евгений.

Евгений, спасибо за совет, но, к сожалению, ошибка та же самая... Out of stack

[Teslenko_EA]

MrGB, Вы уверены в верности строки подключения:
\\10.124.120.18\_Server.mdb
пошаговое выполнение дает возможность "поймать" источник ошибки, попробуйте.

Евгений.