Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\programmi\Magazzino Gestione +mag oledb\Magazzino.mdb;Jet OLEDB:Database Password=q")
        conn.Open()
        Dim cmd = New OleDbCommand("select * from qualifiche where codqualifica=1", conn)
        Dim dta = New OleDbDataAdapter(cmd)
        Dim dt = New DataTable()
        dta.fill(dt)
        conn.Close()

        Dim l As LocalReport = Me.ReportViewer1.LocalReport
        l.ReportPath = "C:\Documents and Settings\Administrator\Documenti\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1\Report1.rdlc"
        l.DataSources.Add(New ReportDataSource("qualifiche", dt))
        Me.ReportViewer1.RefreshReport()