Switchboard Does Not Work

Error Message:

Run-time error '-2147024769 (800700f)':
Method 'Connection' of object' _ CurrentProject'failed

Debug:
' Open the table of Switchboard Items, and find ' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection 'error is to left as indicated by Access)

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

Something must be screwed up in the program. A reinstall did not help.
Can you please?