مساعدة ابعطيكم الكود كامل

لما انفذ هذا الكود مايشتغل وهذا الكود المفروض انه يطلع لي المجموع اللي حصلناه من السنه الفلانية مو المشكلة في ال SQL المشكلة ان ال SQL يطلع لي نتيجة لكن كيف اظهرها في الفيجول .

Public Class How
	Inherits System.Windows.Forms.Form
Private Sub Calcuate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calcuate.Click
		Dim a As Integer = 0
		Try
			If yearTxt.Text <> "" Then
				DataSet1.Clear()
				OleDbDataAdapter1.SelectCommand.CommandText = _
				"SELECT SUM(Price) From Car WHERE " & _
				" Year = " & yearTxt.Text & ";"

				OleDbDataAdapter1.Fill(DataSet1)
				Display(DataSet1)
				Label2.Text &= vbCrLf & "Query Successful" & _
				vbCrLf
			Else
				MessageBox.Show("Please enter the year")

			End If
		Catch oledexceptionparameter As System.Data.OleDb.OleDbException
			Console.WriteLine(oledexceptionparameter.StackTrace)
			Label1.Text = oledexceptionparameter.ToString

		Catch invalidoperationexceptionparameter As InvalidOperationException
			MessageBox.Show(invalidoperationexceptionparameter.Message)

		End Try

	End Sub
	Private Sub Display(ByVal dataset As DataSet)
		Try
			Dim d As DataTable = dataset.Tables(0)
			If d.Rows.Count <> 0 Then
				Dim re As Integer = Convert.ToInt32(d.Rows(0)(0))
				Label2.Text = re.ToString
			Else
				Label2.Text &= vbCrLf & " No Mony for this year " & vbCrLf
			End If
		Catch ex As System.Data.OleDb.OleDbException
			Console.WriteLine(ex.StackTrace)
			Label2.Text &= ex.ToString
		End Try
	End Sub



End Class