почему же не работает такая конструкция?
Public Function OpenDatabase() As Boolean
On Error GoTo errCreateConnection
Set conMain = New ADODB.Connection
conMain.Open ("File Name=" + GetSetting(REG_APP_NAME, REG_COMMON_SECTION, "connect", ""))
'On Error GoTo 0
While Not (conMain.State = adStateOpen)
Wend
Exit Function

errCreateConnection:
MsgBox "Íåâîçìîæíî îòêðûòü ñèñòåìíóþ áàçó äàííûõ", vbSystemModal + vbExclamation + vbOKOnly, "Ïðîáëåìà!"

End Function
все время выдает ошибку в эттом сабе:
Public Sub CloseDatabase()
If conSystem.State = adStateOpen Then
conSystem.Close
End If
Set conSystem = Nothing

End Sub
вот здесь: conSystem.State = adStateOpen
весь день сегодня мучаюсь :(
ужас