reporte sin registros

[yesmina]

hola, ahora he intentado hacerlo SIN el asistente pero no me salen resultados, LA Pagina sale en blanco...DONDE PUEDE ESTAR EL ERROR????????????

aki les envio el codigo ke he usado:

Dim oConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConfigurationSettings.AppS ettings("conexion").ToString)
oConn.Open()
Dim STR_SQL As String

STR_SQL = "SELECT *FROM FSopTec"
Dim oCmd As New SqlCommand(STR_SQL, oConn)
Dim da As New SqlDataAdapter(oCmd)
Dim ds As New DataSet
da.Fill(ds, "FS")

Dim cr As New CrystalReport4

cr.SetDataSource(ds)
crvPrueba.ReportSource = cr

espero me puedan ayudar..