how to connect crystal report through two server in my vb project

hi all
i'm using vb and calling my cystal report in the project .in crystal report two databases are there with different servers.but its not connecting .i've made ADODB connection globally i.e
option Explicit
Global CN1 As ADODB.Connection
Global CN2 As ADODB.Connection
Public Sub connecttootherdatabase()
Set CN1 = New ADODB.Connection
CN1.Open ("Provider=SQLOLEDB.1;Password=rptuser;Persist Security Info=True;User ID=rptuser;Initial Catalog=SDS;Data Source=myIP1")
Set CN2 = New ADODB.Connection

CN2.Open ("Provider=SQLOLEDB.1;Password=scala;Persist Security Info=True;User ID=scala;Initial Catalog=scalaDB;Data Source=muIP2")
End Sub


and in the form level i'm writing

Private Sub mnuprint_Click()
CrystalReport1.Reset

'CrystalReport1.WindowShowPrintSetupBtn = True
CrystalReport1.co = CN1.ConnectionString
CrystalReport1.Connect = CN2.ConnectionString
CrystalReport1.ReportFileName = App.Path & "\Reportcredit2.rpt"
CrystalReport1.Action = 1
End Sub