DCount("Name", "MSysObjects", "Name='" & txtTblAd & "'") > 0
üstteki yeri alttaki gibi yapmayacakmıydınız başka bir konuda yapmıştınız hani.
DCount("Name", "MSysObjects", "Name='" & txtTblAd & "' and type in (1,4,6)") > 0
Ayrıca hata verdi .Durumu Gif ile anlattım sayın hocam.