Q293786: BUG: GPF in DAO After You Install SQL Server Client

Article: Q293786
Product(s): Microsoft Visual Basic for Windows
Version(s): 6.0,7.0
Operating System(s): 
Keyword(s): kbDatabase kbJET kbLocalization kbGrpDSVBDB kbDSupport
Last Modified: 03-MAY-2001

-------------------------------------------------------------------------------
The information in this article applies to:

- Microsoft Visual Basic Enterprise Edition for Windows, version 6.0 
- Microsoft Visual Basic Professional Edition for Windows, version 6.0 
- Microsoft SQL Server version 7.0 
-------------------------------------------------------------------------------

SYMPTOMS
========

If you install the Spanish version of the SQL Server 7.0 Client utilities on a
computer that is running Microsoft Windows 95 OEM Service Release 2 (OSR2), a
General Protection Fault (GPF) error occurs when you use Data Access Objects
(DAO) to open a database.

This problem does not occur on computers that are running the Spanish version of
Microsoft Windows NT 4.0, nor does it occur on computers that are running the
English version of Windows 95.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article.

MORE INFORMATION
================

Steps to Reproduce Behavior
---------------------------

1. On a test computer that is running Windows 95 OSR2 Spanish with Visual Basic
  6.0 Spanish installed, install the SQL Server 7.0 Client (Spanish) and
  Microsoft Data Access Components (MDAC) 2.1 Service Pack 1 (SP1).

2. Create a new Standard EXE project in Visual Basic 6.0. Form1 is created by
  default.

3. From the Project menu, click References, and then click "Microsoft DAO 3.0
  Object Library".

4. Add a CommandButton (Command1) to Form1.

5. Paste the following code in the declarations section of Form1:

  Option Explicit

  Dim spcodbc As Workspace
  Dim mibd As Database
  Dim strSQL As String
  Dim rsCount As Recordset
  Dim rs As Recordset

  Private Sub Command1_Click()
  Set spcodbc = Workspaces(0)
  Set mibd = spcodbc.OpenDatabase("D:\VB5\NWind.mdb")
  strSQL = "Select * From Categories"

  Set rsCount = mibd.OpenRecordset(strSQL, dbOpenSnapshot)
  Text1.Text = rsCount.RecordCount

  Set rs = rsCount.OpenRecordset(dbOpenSnapshot)

  End Sub

6. Run the program, and click the CommandButton on Form1. Notice that a General
  Protection Fault occurs when you click the CommandButton.

Additional query words: IPF Stackfault gpf dao350 dll

======================================================================
Keywords          : kbDatabase kbJET kbLocalization kbGrpDSVBDB kbDSupport 
Technology        : kbVBSearch kbSQLServSearch kbAudDeveloper kbZNotKeyword6 kbSQLServ700 kbZNotKeyword2 kbVB600Search kbVBA600 kbVB600
Version           : :6.0,7.0
Issue type        : kbbug
Solution Type     : kbpending

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1986-2002.