Ho inserito tutto all'interno di una routine !
QUALCUNO ESPERTO MI SA DIRE COSA C'E' CHE MI SFUGGE IN QUESTO CODICE ?
Ora ve lo posto :

Sub ConfiguraCrystalReports()
Elencorep = New ReportDocument
Dim reportPath As String = Server.MapPath("ElencoTeso.rpt")
Elencorep.Load(reportPath)

Dim dsvar As New DataSet
Dim connectionString As String = "DSN=DBP"
Dim queryString As String
queryString = "SELECT MAN_KEY_ANNO, ECC... "
Dim connection As New Odbc.OdbcConnection(connectionString)
Dim Wadapter As New Odbc.OdbcCommand(queryString, connection)
Dim AppoAdapter As New Odbc.OdbcDataAdapter(Wadapter)
' Open the connection and fill the DataSet.
Try
connection.Open()
AppoAdapter.Fill(dsvar)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

'--->
Elencorep.SetDataSource(dsvar)
CrystalReportViewer1.ReportSource = Elencorep
End Sub

GRAZIE