Dim data As clsData = clsData.Instance
    Dim ds As New DataSet
    Dim tblMyCompany As DataTable = data.GetDataTableFromQuery("select * from tblCompany where Id = (select CompId from tblCheckIn Where Id =" & CheckId & ")")
    tblMyCompany.TableName = "tblCompany"
    ds.Tables.Add(tblMyCompany)
    Dim tblCheckIn As DataTable = data.GetDataTableFromQuery("select * from tblCheckIn where id=" & CheckId)
    tblCheckIn.TableName = "tblCheckIn"
    ds.Tables.Add(tblCheckIn)

    Dim CheckInRoomQuery As DataTable = data.GetDataTableFromQuery("select * from CheckInRoomQuery where ChId=" & CheckId)
    CheckInRoomQuery.TableName = "CheckInRoomQuery"
    ds.Tables.Add(CheckInRoomQuery)
    Dim tblCheckInExtra As DataTable = data.GetDataTableFromQuery("select * from tblCheckInExtra where ChId=" & CheckId)
    tblCheckInExtra.TableName = "tblCheckInExtra"
    ds.Tables.Add(tblCheckInExtra)

    Dim ob As rptCheckOut = New rptCheckOut

    ob.SetDataSource(ds)

    ob.Subreports(0).SetDataSource(CheckInRoomQuery)
    'ob.Subreports(1).SetDataSource(tblCheckInExtra)
    CrystalReportViewer1.ReportSource = ob