Onde esta o Crystal Reports no VB 2008 Express

Instalei o Visual Basic 2008 Express em conjunto com o SQL Server 2005 express Edition e desenvolvi toda interface gráfica do meu aplicativo, agora que só faltam os relatórios, descobri que o Crystal Reports não vem junto, é possivel baixar e instalar ou alguem sugere outra forma de gerar relatórios ...

Cheguei até na parte que seleciono o que quero imprimir e jogo em um DATAREADER ... falta imprimir e agora?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Atualizar cabeçalho do orçamento ...

Dim conn As New SqlClient.SqlConnection
Dim comando As New SqlClient.SqlCommand
Dim pedido As String
Dim inclui As String
Dim cad As String = "N"
Dim reg As Integer

conn.ConnectionString = My.Settings.SisvenConnectionString

Try
conn.Open()
comando.Connection = conn
'Localiza o pedido no arquivo cabeçalho de orçamentos
comando.Parameters.AddWithValue("@Pedven", numorc)
comando.Parameters.AddWithValue("@observ", TextBox7.Text)
comando.Parameters.AddWithValue("@conpag", TextBox4.Text)
comando.Parameters.AddWithValue("@entreg", TextBox5.Text)

 comando.CommandText = "Select *FROM Vendas_cab where pedven=@pedven"
 pedido = comando.ExecuteScalar
 If Trim(pedido) = Trim(numorc) Then
 cad = "S"
 inclui = "UPDATE Vendas_cab SET observ=@observ,conpag=@conpag,entreg=@entreg Where pedven=@pedven"
 comando.CommandText = inclui
 End If
 reg = comando.ExecuteNonQuery()
 If cad = "S" Then
 'Aqui eu preciso inserir a geração do relatorio
 comando.CommandText = "Select Vendas_det.codigo,Vendas_det.qdeped,Vendas_det.valven,Cadmer.desmer FROM Vendas_det INNER JOIN Cadmer ON Vendas_det.codigo = Cadmer.codigo Where pedven=@pedven"
 dr_iteped = comando.ExecuteReader()
 If (dr_iteped.HasRows) Then
 While dr_iteped.Read
 [b]'Aqui eu preciso inserir a geração do relatorio
 'Percorrer itens do pedido e gerar relatorio ... [/b]
 End While
 End If
 dr_iteped.Close()
 End If
 Catch ex As Exception
 MessageBox.Show("Erro ao efetuar a conexão com a base de dados :" + ex.Message)
 Finally
 conn.Close()
 conn.Dispose()
 End Try
 Me.Close()
 End Sub