Also there must be a simplier way to replace this bit of ugly code :
VB Code:
  1. For lintTable = 0 To catLocal.Tables.Count - 1
  2.     If CStr(catLocal.Tables.Item(lintTable).Name) = lstrQWTable Then
  3.         lblnTable = True
  4.         CreateACCLinkTableInQW = True
  5.         Exit For
  6.     End If
  7. Next ' Table
ie test for the existance of a table without having to loop arround all the tables.