Public Class Frm_ExtReport
    Private Sub Frm_ExtReport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        BindingSource1.DataSource = DSETR1
    End Sub
End Class