Function not found . Really need help.

Imports System.Globalization
Imports System.Collections

Imports System.Data.Common
Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Care21.BaseFramework
Imports Care21.BusinessObjects
Imports Care21.Utilities

#End Region


Public Class ReportDB

Public Function CheckReportData(ByVal iMonth, ByVal iYear, ByVal iUserid) As Boolean
Dim ReturnCode As Boolean = False
Dim ReturnValues As New Dictionary(Of String, Object)
Dim result As Boolean

Try

Dim DbObject As Database = DatabaseFactory.CreateDatabase()
Dim DbCommand As DbCommand = DbObject.GetStoredProcCommand("usp_Rpt_InpatientReturns")

Data.AddInParameter(DbCommand, "@paMonthIn", DbType.String, iMonth, DbObject)
Data.AddInParameter(DbCommand, "@paYearIn", DbType.String, iYear, DbObject)
Data.AddInParameter(DbCommand, "@paUserIdIn", DbType.String, iUserid, DbObject)
Dim dt As DataTable
Dim ds As New DataSet("tt")

Dim DataReaderObject As IDataReader = DbObject.ExecuteReader(DbCommand)

dt.Load(DataReaderObject) 'If DataReaderObject.FieldCount = 0 Then
'Else

'End If
If dt.Rows.Count = 0 Then
result = False
Else
result = True

End If



DbCommand.Parameters.Clear()
'If ReturnValues("Result").ToString().Equals("1") Then
'Return True
'Else
' Return False
'End If
Catch ex As Exception
Throw
End Try
Return result
End Function

End Class

#Region "Imports"
 Imports Care21.Utilities
Imports Care21.BusinessObjects


Imports System.Globalization
Imports System.Data.Common
Imports System.Transactions

Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Care21.BaseFramework

Imports Care21.DataAccessLogic.RegistrationDB
#End Region

Public Class Report

#Region "Public Methods"
 Public Function CheckReportData(ByVal iMonth, ByVal iYear, ByVal iUserid) As Boolean
Dim DbObject As ReportDB = New ReportDB()
Return DbObject. 'The error is here where it supposed to come DbObject.CheckReportData, but only thing comes out is .ToString()
End Function

#End Region
End Class