يظهر خطأ عند تشغيل البرنامج بf5 أريد معرفة سبب الخطأ

هذا هو الكود بعد التصحيح :

Imports System.Data.OleDb

Module Module1
	Structure CONN
		Dim C As OleDbConnection
		Dim CMD As OleDbCommand
		Dim AD As OleDbDataAdapter
		Dim DS As DataSet
	End Structure
	Sub Main()
		Dim V As CONN
		V.C = New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=AGC.mdb")
		V.CMD = New OleDbCommand
		V.CMD.CommandType = CommandType.Text
		V.CMD.CommandText = "select * from ho"
		V.AD = New OleDbDataAdapter
		V.AD.SelectCommand = V.CMD
		V.AD.SelectCommand.Connection = V.C ' يجب الربط مع OleDbConnection
		V.AD.SelectCommand.Connection.Open() ' فتح قناة الإتصال قبل قراءة المعلومات
		V.DS = New DataSet
		V.AD.Fill(V.DS, "ho")
		V.AD.SelectCommand.Connection.Close() 'إغلاق قناة الإتصال في النهاية

		Console.WriteLine(V.DS.Tables(0).Rows(1).Item(0))
		Console.Read()


	End Sub

End Module

بسم الله الرحمن الرحيم

والله العظيم أنا عاجز عن الشكر أنا جربت الكود اللى أعطيته لى وعرفت الخطأ منين شكرا لك يا أخى على مجهود وجزاك الله خيرا وجعله فى ميزان حسناتك شكرا لك ولأهل المغرب والله شعب المغرب محبب إلى قلبى جدا

أسكرك مرة أخرى

من علمنى حرفا سرت له عبدا

ماذا أقول لك يا أخي... لساني عاجز عن التعبير أمام هذه العبارات الأخوية التي تشرح الصدر...

شكرا لك أخي حسام