Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Sub ReporteNcRecepcion()
'Primero que Nada tendrias que tener tu cadena de conexion a la base de datos, asumo que en eso no tienes problema, si me equivoco avisame.
Dim sqlConn As New SqlConnection("AQUI IRIA LA CADENA DE CONEXION A TU BASE DE DATOS")
'Crea una variable de tipo Report, y luego seteala a tu reporte.
Dim Reporte as New CrystalReport1
'Crea un SqlDataAdapter y un Dataset para cargar los datos que deseamos mostrar, ya filtrados por medio de una consulta SELECT.
Dim dsDatos As DataSet
Dim daTabla As SqlDataAdapter
daTabla = New SqlDataAdapter("AQUI IRIA TU SELECT O CONSULTA", sqlConn)
dsDatos = New DataSet("CualquierNombre")
'Llenando el Dataset
daTabla.Fill(dsDatos, "Command") 'El nombre tiene que coincidir con el nombre de la consulta del reporte
'No se que sistema de bases de datos uses, yo uso SQL SERVER 2005, si este fuera tu caso, usa esto para asignar la conexion a tu reporte.
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
For Each tbCurrent In Report.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = ".\SQLExpress" 'Puese escribir ".\INSTANCIA" si el nombre de tu instancia no es la que da sqlserver 2005 por default
.UserID = "sa" 'O el usuario que uses
.Password = "MyPass"
.DatabaseName = "MyDataBase"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
'Luego asignas el DataSet como DataSource de tu reporte
Reporte.SetDataSource(dsDatos)
Luego asignas el reporte a tu crviewer
CrystalReportViewer1.ReportSource = Report
CrystalReportViewer1.Zoom((85))
CrystalReportViewer1.Show()