Prueba con lo siguiente:
Código vb:
Ver originalPrivate Sub Llenar_Reporte()
Dim MiDataSetDatos As New DataSet
Dim Adaptador As SqlDataAdapter
Dim SQL_Adaptador As String = "Aquí tu Query"
Try
'Crear la conexión
objConn = New SqlConnection(MiConexion.StrConexion)
'Abro la conexion
objConn.Open()
Adaptador = New SqlDataAdapter(SQL_Adaptador, objConn)
'Llamando al metodo Fill para llenar mi DataSet
Adaptador.Fill(MiDataSetDatos, "Tabla o vista")
'Creo una instancia de mi Reporte
Dim info As New Reporte
info.SetDataSource(MiDataSetDatos)
CrystalReportViewer1.ReportSource = info
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Yo utilizo este procedimiento Sub y me funciona a la perfección.
Saludos!