Dim table As CrystalDecisions.CrystalReports.Engine.Table
                    Dim tableInfo As CrystalDecisions.Shared.TableLogOnInfo
                    reportDocument1.OpenSubreport("Crt_Baocao1sub")
                    For Each table In reportDocument1.Subreports("Crt_Baocao1sub").Database.Tables
                        tableInfo = table.LogOnInfo
                        With tableInfo.ConnectionInfo
                            .ServerName = Local_SVR
                            .DatabaseName = Local_DB
                            .UserID = Local_UID
                            .Password = Local_PWD
                        End With
                        table.ApplyLogOnInfo(tableInfo)
                        table.Location = Local_DB & ".dbo." & table.Name
                    Next
                    reportDocument1.Subreports("Crt_Baocao1sub").SetParameterValue("@Flatsub", 0)
                    reportDocument1.Subreports("Crt_Baocao1sub").SetParameterValue("@Province_ID", "35")

---> error : System.NotSupportedException - Not supported within subreports.

thanks for Reply