اتصال SubReport در ActiveReport به دیتابیس پسورد دار

[kitcat_m18]

سلامف

من می خواستم ساب ریپورت رو به دیتابیس پسورد دار وصل کنم، برای بدون پسورد از این کد استفاده می کنم

Private m_sDBName As String

Private Sub ActiveReport_ReportStart()
m_sDBName = GetVBPath() & "\NWind.mdb"
Set sRptTop10.object = New rptTop10
sRptTop10.object.DBName = m_sDBName
Set srptProductSales.object = New rptProductSalesByCategory
srptProductSales.object.DBName = m_sDBName
End Sub


Private m_sDBName As String

Public Property Let DBName(sName As String)
m_sDBName = sName
dcRptData.DatabaseName = sName
End Property

موفق باشید