Predmet:provjera dali postoji tabela u bazi

---

Pozdrav

htio bih da napravim provjeru da li je određena tabela kreirana odnono dali postoji i našao sam nešto na netu al nikako da mi proradi
ako neko može da mi kaže gdje griješim odnosno šta sam fulio

ovo je funkcija koja ide posebno i koja bi trebala da ocita sve tabele u bazi
Function TableExist(TableName As String) As Boolean
Dim Db As Database
Dim tbl As Recordset

On Error GoTo TableExistError

Set Db = CurrentDb
Set tbl = Db.OpenRecordset(TableName)
TableExist = True

Set tbl = Nothing

GoTo tableEnde

TableExistError:
TableExist = False
Set tbl = Nothing
GoTo tableEnde
tableEnde:
End Function

poziv u drugoj funkciji sa uslovom

If TableExists("posebni_podaci_o_placama") = True Then GoTo Kraj Else Exit Function