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()