Ошибка при открытии базы Access Run-time error 91

tisa_kz
Дата: 18.09.2005 17:33:55
Здравствуйте! При открытии базы в Access выходит ошибка: Run-time error 91 и.т.д. Когда делаю отладку выходит следующее:
Private Sub FillOptions()
' Fill in the options for this switchboard page.

' The number of buttons on the form.
Const conNumButtons = 8

Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer

' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption

' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 '1 = adOpenKeyset - вот это строка выделена желтым

и все, никак не могу открыть базу.
Rivkin Dmitry
Дата: 18.09.2005 18:38:26
Странно! опробуй создать switchboard по-новой!