I used the upsizing wizard to migrate an Access db to SQL Server but am having some trouble with the .adp frontend. Specifically, I have one form that needs to find a particular table in the database (if it exists) and delete it. Here's the code:

Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer

Set db = DBEngine.Workspaces(0).Databases(0)

'MsgBox "The db name is " & db.Name
fExistTable = False
db.TableDefs.Refresh
For i = 0 To db.TableDefs.Count - 1
'MsgBox "The object is named " & db.TableDefs(i).Name
If strTableName = db.TableDefs(i).Name Then
'Table Exists
fExistTable = True
'MsgBox "Table Found!"
Exit For
End If
Next i
Set db = Nothing
End Function

'Then, in the click event for a button, I have:
If fExistTable("tblPondLabInvertResults_frax") Then
DoCmd.RunSQL "DROP TABLE tblPondLabInvertResults_frax"
End If

Each time I run it, I get an error saying "Item not found in this collection". I'm pretty sure this is generated in the line "Set db = DBEngine.Workspaces(0).Databases(0)" in the function.

This problem has me worried that there'll be lots more migration problems for this db application.

Doug Wilder
National Park Service
Fairbanks, AK