problem z menu Opcje

[Kacha]

mam prolem po włączeniu bazy pojawia sie błąd '91' a póżniej pojawia sie bład
rs.Open stSql, con, 1 ' 1 = adOpenKeyset
i nie wiem co mam zrobić??

[SongoQ]

Napisz jaka to jest baza i w ktorym miejscu sie taki blad pojawia w jakim systemie itd.

[Kacha]

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 => tu jest błąd

' If there are no options for this Switchboard Page,
' display a message. Otherwise, fill the page with the items.
If (rs.EOF) Then
Me![OptionLabel1].Caption = "Dla tej strony panelu przełączania brak elementów"
Else
While (Not (rs.EOF))
Me("Option" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]
rs.MoveNext
Wend
End If

' Close the recordset and the database.
rs.Close
Set rs = Nothing
Set con = Nothing

End Sub

Pojawia sie podczas włączania menu w accesie 2003
system to winXP nie instaluje aktualizacji
acces 2003
microsoft SQl

aplikacja jest tworzona w accesie i puzniej jest importowana do sql
Jak system jest swieży to wszystko działa ale po paru dniach przestaje bez powodu i przy prubie uruchomienia menu w accesie pojawia sie wyzej wymieniony błąd. czy winXP jest z aktualizacjami czy bez to i tak niedziała

POMOCY