كيفية الاستعلام أو التصفية في Datatable

غير مكان الكود هذا بس

With ListBox2
			If .Items.Count > 0 Then
				.Items.Clear()
			End If
			Dim dv As New DataView
			dv.Table = OleTable
			dv.RowFilter = "TABLE_NAME='city'"
			.DisplayMember = "TABLE_NAME"
		End With

شكرا لك ، لكن لمن يتابع يجب إضافة سطر الـ DataSource

ليصبح الكود

With ListBox2
			If .Items.Count > 0 Then
				.Items.Clear()
			End If
			Dim dv As New DataView
			dv.Table = OleTable
			dv.RowFilter = "TABLE_NAME='city'"
			.DisplayMember = "TABLE_NAME"
		   .DataSource=dv
End With

و الآن أخي الكريم هل هناك طريقة أسهل من هذه للتحقق من وجود جدول معين في قاعدة البيانات بدل من هذه اللفة

وشكرا