سؤال في MessageBox

		Dim conn1 As New OleDb.OleDbConnection
		Dim sql As String = "select * from inv"
		Dim r_name As OleDb.OleDbDataReader
		Dim DPTH As Object
		DPTH = Application.StartupPath & "\data\inv_1.mdb"
		conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DPTH & ";Persist Security Info=False"
		Try
			conn1.Open()
			Dim comm1 As New OleDb.OleDbCommand(sql, conn1)
			r_name = comm1.ExecuteReader
			Do While r_name.Read
				ComboBox1.Items.Add(r_name.GetString(1))
			Loop
			r_name.Close()
		Catch err As System.Exception
			MsgBox(err.Message)
		Finally
			conn1.Close()
		End Try

الإجابة على سؤالك الأول تلاحظها في السطر Catch err

أما السؤال الثاني فهو في هذا الكود

بالنسبة للسطر

 ComboBox1.Items.Add(r_name.GetString(1))

ستلاحظ getstring = 1 وهو رقم الحقل الذي تريد عرضه في القائمة يبدأ من الصفر

شكرا اخوووووووووووووي وما قصرت