Sub binda()

        Dim Conn As New Data.OleDb.OleDbConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
        Conn.Open()

        

        RptBacheca.DataSource = MyDS
        RptBacheca.DataMember = "tab_bacheca"
        RptBacheca.DataBind()
    End Sub