Привет всем
есть exe-шник и dll-ка
dll-ка выполняет подключение к базе данных, а с ехе-шника я его вызываю. Так он мне выдает ошибку 3709 "Не допускается операции над объектом, ссылающимся на закрытое или недопустимое подъключение"
может кто сталкивался?
HELP

to paparome
млин...
а нельзя ли объяснить по подробнее плиз (можно на примерах)
в двух твоих процах я не нашел разницы... а коннекшены я вообше не закрываю...

Option Explicit
Public rec As ADODB.Recordset
Public con As ADODB.Connection
Public fn As String

Public Function Connect() As ADODB.Connection
Dim tmplng As Long
On Error GoTo mis
Set con = New ADODB.Connection
With con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Mode = adModeReadWrite
End With
con.Open "Data Source=" & fn

If Err.Number > 0 Then
Open "C:\Test\ActX1.log" For Append As #1
Write #1, "Can not find Test_base.mdb: " & Err.Number & " " & Err.Description
Close #1
Exit Function
End If

Exit Function

mis:
Select Case Err.Number
Case -2147217843
tmplng = tmplng + 1
If tmplng < 10 Then
Resume
Else
Resume Next
End If
Case Else
MsgBox Err.Description, vbCritical, Err.Number
End Select

End Function

Public Function Recorder() As ADODB.Recordset
Dim tmplng As Long
On Error GoTo mis
Set rec = New ADODB.Recordset
With rec
.CursorLocation = adUseServer
.Source = "select * from [table]"
.CursorType = adOpenDynamic
End With

If Err.Number > 0 Then
Open "C:\Test\ActX1.log" For Append As #1
Write #1, "Can not find table in Test_base.mdb: " & Err.Number & _
" " & Err.Description
Close #1
Exit Function
End If

rec.Open , con, , adLockBatchOptimistic

Exit Function

mis:
Select Case Err.Number
Case -2147217843
tmplng = tmplng + 1
If tmplng < 10 Then
Resume
Else
Resume Next
End If
Case Else
MsgBox Err.Description, vbCritical, Err.Number
End Select

End Function

я открываю ее в ехе-шнике:
dim ss as class1
set ss = new class1
ss.connect
ss.recorder

dim ss as class1
set ss = new class1
ss.fn=cstr(...)
ss.connect
ss.recorder

dim ss as class1
set ss = new class1
ss.fn=cstr(...)
ss.connect
ss.recorder - здесь

была одна функция, но я разбил на ее на 2:
connect и recorder, чтобы было видно, где ошибка...
а что на счет 1 варианта (когда я его не открыл)?

эту ошибку обошел... уфффф
вышла новая:
Public fi As Class1
Set fi = New Class1
Set DataGrid1.DataSource = fi.rec - "7004-the rowset is not bookmarkable"

to paparome
спасибо за помощь