'*SQL* Using conn As New SqlConnection(DBconection)
Using conn As New OleDbConnection(DBConection)
'*SQL* Using command As New SqlCommand(sqlcommand, conn)
Using command As New OleDbCommand("SELECT * FROM tbl_Members", conn)
conn.Open()
'*SQL* Using reader As SqlDataReader = command.ExecuteReader()
Using reader As OleDbDataReader = command.ExecuteReader()
Dim table As New DataTable
table.Load(reader)
Dim rds = New ReportDataSource("DataSetReport_Member_DataTableMember", table)
Me.rptViewer.LocalReport.DataSources.Clear()
Me.rptViewer.LocalReport.ReportEmbeddedResource = "Test.rptMember.rdlc"
Me.rptViewer.LocalReport.DataSources.Add(rds)
Me.rptViewer.RefreshReport()
End Using
End Using
End Using