An error occured during local processing

Imports MySql.Data.MySqlClient
Imports Microsoft.Reporting.WinForms

Public Class CarReportForm

    ' Connection string definition
    Private connString As String = _
         "Server=myserver;Port=3306;Database=hotelmanagementsystemn;Uid=root;Pwd=ben10@@;"

    Private Sub CarReportForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try

            With Me.ReportViewer1.LocalReport

                ' Report path
                .ReportPath = Application.StartupPath & "\..\..\CarReport.rdlc"
                .DataSources.Clear()

            End With


            ' ----------------------------------------------------
            ' Datasource for the main report
            ' ----------------------------------------------------
            Dim SQL As String = "SELECT   Car_ID, Car_No, Car_Type, Full_Name, Room_No, Floor_No, Rent_Charge, Num_of_Cars, Total_Price, Date_Value FROM CarRent_T"

            Using da As New MySqlDataAdapter(SQL, connString)

                Using ds As New DataSet
                    da.Fill(ds, "viewcar")

                    ' You must use the same name as defined in the report Data Source Definition
                    Dim rptDataSource As New ReportDataSource("dsCar_viewcar", ds.Tables("viewcar"))
                    Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)

                End Using

            End Using

            ' Refresh the report
            ReportViewer1.RefreshReport()

            ' Add the handler for the subreport
            AddHandler ReportViewer1.LocalReport.SubreportProcessing, AddressOf SubreportProcessingEvent

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

    Sub SubreportProcessingEvent(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)

        Try

            Dim SQL As String = "SELECT  Hotel_Name, Hotel_Address, Hotel_Phone, Email_Address FROM HotelProfile"
            Using da As New MySqlDataAdapter(SQL, connString)
                Using ds As New DataSet
                    da.Fill(ds, "viewhotelpro")
                    Dim rptDataSource As New ReportDataSource("dsCar_viewhotelpro", ds.Tables("viewhotelpro"))
                    e.DataSources.Add(rptDataSource)
                End Using
            End Using

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

End Class