我贴个方法出来:
public Function IsTableed(ByVal TempTableName As String) As Boolean
''测试表是否存在
If DCount("*", "MSysObjects", "Name='" & TempTableName & "'") = 0 Then
msgbox "系统未发现此表;" & TempTableName
IsTableed = False
Else
IsTableed = True
End If