البحث عن جدول في قاعده اكسس

وجدت الحل وللفائده اضعه لكم هنا.

   Dim dtTableNames As DataTable
			dtTableNames = conn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, _
				New Object() {Nothing, Nothing, Nothing, "TABLE"})
			'conn.Close()
			Dim dr As DataRow
			TableFound = False
			For Each dr In dtTableNames.Rows
				If dr.Item("TABLE_NAME").ToString = TextBox3.Text Then
					TableFound = True
				End If

Next