Access is returning a blank help window

How do I resolve these blank help windows.  

The blank window title bar contains "Microsoft Visual Basic Help".  The window below the title bar is the same gray color that the window control button are in the right corner of the title bar.  

My line of code is as follows.
    rsCategories.Open sSQL, cnDevDB, adOpenKeyset, adLockPessimistic, adCmdText
I select the word Open and depress the F1 key.

The selected references are as follows.
Visual Basic for Applications
Microsoft Access 11.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects Recordset 2.8 Library
Microsoft DOA 3.6 Object Library
Microsoft ActiveX Data Objects 2.5 Library

I have performed a repair installation on Access 2003.  That reported complete and successful.
If I select the Open follwing the connection variable, the help for ADO 2.5 API Reference Open Method (ADO Connection) opens correctly.  If I click on the see also link and select Open Method (ADO Recordset), the help screen opens correctly.

I presume the problem is related to my choosing to open the connection in the Form_Load subroutine and open the recordset in a seperate function which is called by several events.

Any suggestions?
' Declarations are as follows
Option Compare Database
Option Explicit
 
' Declare Applix Tables Connection
 
Public cnDevDB As ADODB.Connection
Public cnProdDB As ADODB.Connection
 
Private rsCatagories As Recordset
Private rsParts As Recordset
 
 
' Connection made as follows
 
Private Sub Form_Load()
On Error GoTo err_Form_Load
 
    Dim sWorking As String
    
    Set cnDevDB = New ADODB.Connection
    Set cnProdDB = New ADODB.Connection
    
    ' Assumes data is in same directory as ApplixClient.mdb
    sWorking = strWorkingPath
    
    ' Open connections to Dev and Prod server
    cnDevDB.Open "DSN=dcd_koktsv51;" & _
       "Uid=applix;" & _
       "Pwd=applix"
    MsgBox "Connection State ==>" & GetState(cnDevDB.State), , "odbc connection"
 
' Recordset opened as follows.
 
' The Combo0 box list is then populated with those part categories.
 
    Dim sSQL As String
    Dim fs As Object
    
'    Set fs = CreateObject("Scripting.FileSystemObject")
'    Set F = fs.GetFile(sFileName)
'    Set ts = F.OpenAsTextStream(ForReading, TristateUseDefault)
    
 
'    Set cnCurrentApp = New ADODB.Connection
    
    Select Case Me.Frame2.Value
        Case 2
            sServer = "Prod"
        Case Else
            sServer = "Dev"
    End Select
    Debug.Print GetState(cnDevDB.State)
    Set rsCatagories = New ADODB.Recordset
'    DoCmd.Hourglass True
    sSQL = "NEW QUERY: select categorycode, category, lms_catalog_name from family where lms_catalog_name is not null order by category asc"
    If sServer Like "Dev" Then
        rsCatagories.Open sSQL, cnDevDB, adOpenKeyset, adLockPessimistic, adCmdText
    Else
        rsCatagories.Open sSQL, cnProdDB, adOpenKeyset, adLockPessimistic, adCmdText
    End If

Open in new window

MikeySampleAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

JimFiveCommented:
Just as a guess change:

Private rsCatagories As Recordset
Private rsParts As Recordset

To
Private rsCatagories As ADODB.Recordset
Private rsParts As ADODB.Recordset

Perhaps also try doing a reinstall and check to make sure that all the help files are installed on local device (Not Install on first use, or anything like that)

My guess is that either the Access Help engine can't determine which open help file to open, or (more likely) that the one it thinks it should open can't be found.
--
JimFive
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
MikeySampleAuthor Commented:
The problem was the result of the declaration statement and set statement not matching.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.