التأكد من وجود الجداول وجداول الأستعلام

اخوي ليش ما تجرب تفتح الجدول و إذا حصلت على خطأ معناها الجدول غير موجود. الشكل العام للكود يكون كما يلي:

Function IsTableExist(ByVal sTableName As String) As Boolean
Dim rs As New Recordset

	On Error Resume Next
	rs.Open sTableName, cn

	If Err.Number<>0 Then
		IsTableExist = False
		Err.Clear
	Else
		IsTableExist = True
	End If

	rs.Close
	Set rs = Nothing
End Function

الف شكر أخى العزيز جزاك الله خيرا