Dim Message As String
    Dim conn As New SqlConnection
    conn.ConnectionString = conexion
    Try
        Dim comando As New SqlCommand
        comando.CommandText = ("INSERT INTO
    Dim cn2 As New SqlConnection
    'Dim encontro As String
    cn2.ConnectionString = conexion
    Dim cmd2 As New SqlCommand()
    cmd2.CommandText = "SELECT TOP 1 id FROM Dictamen ORDER BY id DESC "
    Label1.Text & "'"
    cmd2.Connection = cn2
    cn2.Open()
    Dim dr As SqlDataReader
    dr = cmd2.ExecuteReader
    While dr.Read()
        encontro = True
        Label2.Text() = dr.Item("id").ToString()
    End While
    Response.Redirect("reportedictamen.aspx?id=" & Label2.Text & "")
End Sub

Imports System.Data.SqlClient
    Imports System.Data
    Imports CrystalDecisions.CrystalReports
    Imports CrystalDecisions.CrystalReports.Engine
    Imports CrystalDecisions.ReportSource
    Imports CrystalDecisions.Shared
Public Class reportedictamen
    Inherits System.Web.UI.Page
    Dim conexion As String = ConfigurationManager.ConnectionStrings("Dictamen").ConnectionString
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ireport As New ReportDocument()
        ireport = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim iConnectionInfo As ConnectionInfo = New ConnectionInfo()
        iConnectionInfo.DatabaseName = "(base de datos)"
        iConnectionInfo.UserID = "(Usuario)"
        iConnectionInfo.Password = "(Pass)"
        iConnectionInfo.ServerName = "(Ip del servidor)"
        iConnectionInfo.Type = ConnectionInfoType.SQL
        ireport.FileName = "D:sistemasnetDictamenesDictamenesreportesCrystalReport1.rpt"
        SetDBLogonForReport(iConnectionInfo, ireport)
        ireport.RecordSelectionFormula = "{dictamen.id} = " & Request.QueryString("id") & ""
        Me.CrystalReportViewer1.ReportSource = ireport

    End Sub
    Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        'salto
        Dim myTables As Tables = myReportDocument.Database.Tables
        '-
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
    End Sub