عندي مشكلة مع الداتا سيت لما يكون فيها اعمدة كتيرة

أرفق الكود إن أمكن

 Dim x As Integer
			For Each dRow In dS.Tables(0).Rows
				x += 1

				If x = 1 Then  'علشان مايفضلش يعمل كل ده تاني بعدد الصفوف الموجودة


					Me.txtCode.Text = dRow("CarCode")

					Me.txtLincType.Text = dRow("LicenseName")

					Me.txtRoots.Text = dRow("RootName")

					Me.txtSubGroupName.Text = dRow("SubGroubName")

					Try
						Me.txtTreadmark.Text = dRow("Tmark")
					Catch ex As Exception
						GoTo TryAgain
					End Try

					Me.txtModelName.Text = dRow("ModelsName")

					Me.ComboModelYear.Text = dRow("CarModelYear")

					Me.txtCapcityW.Text = dRow("CapacityWeighing")

					Me.txtCapcityPerson.Text = dRow("CapacityPerson")
					Me.lblCapstyUnit.Text = dRow("MeasuresUnitsName") '-------------------------------------------------------------

					Me.txtColorCode.Text = dRow("CarColor")

					Me.txtSelDate.Text = dRow("date_Sel")

					Me.txtSelPrice.Text = dRow("CarPrice")

					Me.txtCostCenter.Text = dRow("DepartmentsName")

					Me.txtFirstCounter.Text = dRow("FirstCounter")

					Me.txtCurrentCounter.Text = dRow("CrruntCounter")

					'Me.txtCurrentDistance.Text = dRow("DistanceCurrent")

					Me.txtMotorNo.Text = dRow("MotorNo")

					Me.txtMotorCC.Text = dRow("MotorCCName")

					Me.txtShaseeh.Text = dRow("ShaseeNO")

					Me.txtFuelType.Text = dRow("FuelTypesName")
					Me.txtFuelTankSize.Text = dRow("FuelTankSize")
					Me.lblFuelTankUnit.Text = dRow("FuleUnitName") '--------------------------------------------------


					Me.txtMotorOileTankSize.Text = dRow("MotorOileTankSize")


					Me.txtKaronaOileTankSize.Text = dRow("KaronaOileTankSize")

					Me.txtFeteasOileTankSize.Text = dRow("FeteasOileTankSize")

					Me.lblFeatesOilTankUnit.Text = dRow("OilUnitName")
					Me.lblKaronaOilTankUnit.Text = dRow("OilUnitName") '--------------------------------------------------
					Me.lblMotorOilTankUnit.Text = dRow("OilUnitName") '--------------------------------------------------

					Me.txtBatteryCount.Text = dRow("BatteryCount")

					Me.txtTireCount.Text = dRow("TireCount")

					Me.txtSpareTireCount.Text = dRow("StandbyTireCount")

					Me.txtLincNo.Text = dRow("Linc_No")

					Me.txtLincStart.Text = dRow("Date_Linc_Start")

					Me.txtLincEnd.Text = dRow("Date_Linc_End")

					Me.ComboLinceTime.Text = dRow("Linc_Update")

					Me.txtLincCities.Text = dRow("CitiesName")

					Me.txtLincUnit.Text = dRow("licenseUniteName")

				End If



				'------------------------------- Get Batteris

				If x = 1 And Val(Me.txtBatteryCount.Text) >= 1 Then

					Me.txtBatterType1.Text = dRow("batteryName")
					Me.txtBatteryNo1.Text = dRow("BatteryNO")
					Me.txtBatteryVolt1.Text = dRow("BatteryVolt")
					Me.txtBatteryAmber1.Text = dRow("BatteryAmbeer")

				ElseIf x = 2 And Val(Me.txtBatteryCount.Text) >= 2 Then
					Me.txtBatterType2.Text = dRow("batteryName")
					Me.txtBatteryNo2.Text = dRow("BatteryNO")
					Me.txtBatteryVolt2.Text = dRow("BatteryVolt")
					Me.txtBatteryAmber2.Text = dRow("BatteryAmbeer")
				ElseIf x = 3 And Val(Me.txtBatteryCount.Text) = 3 Then
					Me.txtBatterType3.Text = dRow("batteryName")
					Me.txtBatteryNo3.Text = dRow("BatteryNO")
					Me.txtBatteryVolt3.Text = dRow("BatteryVolt")
					Me.txtBatteryAmber3.Text = dRow("BatteryAmbeer")
				End If

			Next


		End If

المشكلة بتحصل في السطر الموضوع بين تراي وكاتش (Try catch)

ساعات بيشوف العمود ده وساعات بيطلعلي خطأ

هذا شكل الداتا سيت عند اول Debug ليها

وعند حدوث المشكلة اذهب الى الداتا سيت مرة اخرى لأرى ما يوجد بها من أعمدة أرى هذا المنظر

مع العلم اني لا اضع في جملة الــ Select حقل او العمود ID

فما الموضوع ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟