Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim cn As OleDbConnection
    Dim dap As OleDbDataAdapter
    Dim dst As DataSet
    Dim dt As DataTable
    Dim cmd As OleDbCommand
    Dim sql As String
    Dim x As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:/Dati.mdb")

        dap = New OleDbDataAdapter("SELECT * FROM Comuni", cn)
        dst = New DataSet
        'dap.Fill(dst, "comuni")
        'MsgBox(dst.Tables("comuni").Rows(10).Item("Comune"))
        'Exit Sub

        dt = dst.Tables.Add("Comuni")

        'Me.ComuniTableAdapter.Fill(Me.DataSet1.Comuni)
        'Me.ComuniTableAdapter.Fill(dt)

        ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
        ReportViewer1.LocalReport.ReportPath = System.Environment.CurrentDirectory & "\Report1.rdlc"
        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("Comuni", dst.Tables("Comuni")))
        ReportViewer1.DocumentMapCollapsed = True
        ReportViewer1.RefreshReport()

    End Sub
End Class