crystal report problem

[shakti5385]

hello all my crystal report problem is continue

Dim Report As New CrystalReport1
 
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
 
End Sub
 
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
 
End Sub

this codin is make by dsn

Public C1 As New ADODB.Connection
Public s, Ch, Ans As String
Dim str1, SearchString
Public RFRIM As New ADODB.Recordset
Function OPEN_CONNECTION()
If C1.State = 1 Then
C1.Close
End If
'C1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\database\Salary_SYS.mdb"
C1.ConnectionTimeout = 30
C1.CursorLocation = adUseClient
C1.Open ("dsn=ifw; uid=admin;pwd=india")
If Err <> 0 Then
    MsgBox "Please Make a ODBS Connection Named ifw on your computer including the database" + Chr(13) + "salary_sys.mdb  Thanks", vbCritical
End If
End Function
Function Get_Special_Record_Set(ByRef s As String) As ADODB.Recordset
Dim RTMP As New ADODB.Recordset
If RTMP.State = 1 Then
RTMP.Close
End If
RTMP.Open s, C1, adOpenDynamic, adLockOptimistic
Set Get_Special_Record_Set = RTMP
End Function

this report running on my computer but not on other
i make dsn on other then it run but when my recreate the set up and go to new computer then this codin not running
help me


please some expert codeguru help me............................