FIX: Attempting to Refresh Null TableDef Field Causes GP Fault (94773)

MORE INFORMATION

The following steps reproduce the problem:

1. Start the Professional Edition of VB.EXE with ODBC support already installed.
2. Add the following code to the Form_Click event procedure of Form1:

      Form_Click ()
      Dim db As Database
      Dim tDef As TableDef
      DBName$ = "Server1"
      Set db = OpenDatabase(DBName$)   '* DBName$ name of Database
                                       '* that is already setup on
                                       '* the SQL Server. This
                                       '* DBName$ should be set to
                                       '* server name that listed in
                                       '* the ODBC.INI file.
      Set tDef = db.TableDefs(0)
   
      Set db = OpenDatabase(DBName$)
      tDef.Fields.Refresh      '* This should result in a
                               '* error, but instead results
                               '* in a GP Fault.
      End Sub
   						

   In order to reproduce the problem, the first TableDef in the database, TableDefs(0), cannot have any fields associated with it.
3. Press the F5 key or ALT+R+S.

At this point, a GP fault occurs -- usually at address 0008:0083 in VBODBCA.DLL.

To avoid the problem, make sure the Fields collection is not Null before using the Refresh method. To do this, replace the tDef.Fields.Refresh statement in step 2 above with the following code:

   If Not tDef.Fields = Null Then
      tDef.Fields.Refresh
   End If