¿Cómo crear reporte con Crystal Reports?

[netSlayer]

Mira algo asi lo uso yo cuando le quiero pasar un dataset al reporte, pero de todas formas uso el editor grafico, espero que te sirva de algo, si no posteame el error que te sale para poder ayudarte.

Dim snt As String = "select * from tu_tabla"
Dim da As New SqlDataAdapter(snt, strCadenaConexion) 'aqui tienes q 'especificar la cadena de conexion
Dim ds As New DataSet
da.Fill(ds, "Alguna_Tabla")
Dim cr As New ReporteCrystalReports
cr.SetDataSource(da.Tables("Alguna_Tabla"))