Ciao a tutti

Problemone con Crystal Report
Qualcuno di voi lo conosce

Sulla server al quale punto quando creo il report tutto OK
dove creo il report funziona tranquillamente

se cambio server non mi apre + il report e mi da l'errore
server has not yet been opened



Sub Visriepilogo()
On Error GoTo GestErr
Dim frmRpt As Form
Dim nomeserver As String
Dim nomedb As String
Dim userdb As String
Dim pwddb As String
Dim rsmat As ADODB.Recordset
Set rsmat = New ADODB.Recordset

'recupero i dati dalla stringa di connessione

If InStr(cn.ConnectionString, "password") > 0 Then
pwddb = Right(cn.ConnectionString, Len(cn.ConnectionString) - InStr(LCase(cn.ConnectionString), "password") - 8)
pwddb = Left(pwddb, InStr(pwddb, ";") - 1)
Else
pwddb = ""
End If
nomeserver = Right(cn.ConnectionString, Len(cn.ConnectionString) - InStr(LCase(cn.ConnectionString), "data source") - 11)
nomeserver = Left(nomeserver, InStr(nomeserver, ";") - 1)
userdb = Right(cn.ConnectionString, Len(cn.ConnectionString) - InStr(LCase(cn.ConnectionString), "user id") - 7)
userdb = Left(userdb, InStr(userdb, ";") - 1)
nomedb = Right(cn.ConnectionString, Len(cn.ConnectionString) - InStr(LCase(cn.ConnectionString), "initial catalog") - 15)
nomedb = Left(nomedb, InStr(nomedb, ";") - 1)



Set frmRpt = New frmReport
Load frmRpt

Dim crAPP As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Set Report = crAPP.OpenReport(App.Path & "\Crystal\" & "riepilogo.rpt")

AVEVO TROVATO SU INTERNET QUESTA ROBA MA NON MI FA NIENTE

crAPP.LogOnServer "p2ssql.dll", nomeserver, nomedb, userdb, pwddb

'QUESTE LE AVEVO MESSE PER DISPERAZIONE ADESSO LE HO COMMENTATE

'Report.Database.Tables(1).SetLogOnInfo nomeserver, nomedb, userdb, pwddb
'Report.Database.Tables(1).SetLogOnInfo nomeserver, nomedb, userdb, pwddb

frmRpt.Caption = "Uscita"
frmRpt.CRViewer1.Move 50, 50, Screen.Width - 200, Screen.Height - 1000
frmRpt.CRViewer1.ReportSource = Report
Report.RecordSelectionFormula = miastr
frmRpt.Refresh

'QUI MI DA L'ERRORE 'SERVER HAS NOT YET BEEN OPENED'
frmRpt.CRViewer1.ViewReport


frmRpt.Show vbModal
Set Report = Nothing
Set crAPP = Nothing
Set rsmat = Nothing
Exit Sub
GestErr:
MsgBox Err.Number & " " & Err.Description
End Sub

Grazie a tutti ciao ciao