error code

Public Sub GetRecords()
        sql = "select [ID], [Patient's Name], [Treatment Details], [Prescribed Medicines] from [tbl_TreatmentsRecords]"

        con.Open()
        ds = New DataSet
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "tbl_TreatmentsRecords")

        DataGridViewTreatmentRecordsNurseBillingPage.DataSource = ds
        DataGridViewTreatmentRecordsNurseBillingPage.DataMember = "tbl_TreatmentsRecords" 'the ds(dataset) contain a table called tbl_accounts
        con.Close()
    End Sub