Bom dia grande Thiago. Muito obrigado pela sua atenção.
Aqui o codigo que eu estou tentando fazer funcionar
Dim strConexao As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\PROJETO\BANCO_DE_DADOS.accdb;Persist Security Info=True;Jet OLEDB:Database Password=12345"
Dim oConn As New OleDbConnection
Dim strSQL As New StringBuilder
Dim oTable As New DataTable()
Dim oCmd As OleDbCommand = Nothing
Dim strReportPath As String = ""
Dim sqlClientes As String = "SELECT * FROM CADASTRO_DE_PRODUTOS"
ReportViewer1.LocalReport.ReportPath = ("C:\TESTE\TESTE\Report1.rdlc")
'ReportViewer1.LocalReport.ReportEmbeddedResource = ("WindowsApplication1.Report1.rdlc")
oConn.ConnectionString = strConexao
oConn.Open()
strSQL.Append("Select * From CADASTRO_DE_PRODUTOS")
oCmd = New OleDbCommand(sqlClientes, oConn)
oCmd.CommandText = sqlClientes
oCmd.CommandType = CommandType.Text
Dim oDataReader As OleDbDataReader = oCmd.ExecuteReader(CommandBehavior.CloseConnection)
oTable.Load(oDataReader)
Acho que o erro esta nas linhas abaixo "Producao" é o nome de um dataset tipado
Dim myReportDataSource As ReportDataSource = New ReportDataSource("Producao", oTable)
ReportViewer1.LocalReport.DataSources.Add(myReportDataSource)
'ReportViewer1.RefreshReport()
Poderia me dizer o que está errado ou o que está faltando?
Coloquei o codigo no evento Load do form, alguem ja me disse que era no Public Sub New
Realmente estou perdidão nesse código rsrsrs
