Still Crystal Report Problem

[shakti5385]

Dim Report As New CrystalReportMainSalary
CRViewer1.Visible = True
CClose_Report.Visible = True
SearchString = ""
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
SearchString = "{LEAVE_TABLE.E_CODE}='" & Trim(TXT_GETCODE.Text) & "' AND {LEAVE_TABLE.MONTH}='" & Trim(TXT_MONTH.Text) & "' AND {LEAVE_TABLE.YEAR}=" & Val(TXT_YEAR.Text) & ""
Report.RecordSelectionFormula = SearchString
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

there is dsn made by me both for database nad report but still this report not running on other computer that not contain crystel report
from last three days i am facin this problem
help me...................

i create dsn on other computer .............but when i run the report on other computer there is information shoe that physical database not found what is sultion for it

my original module coding is as fiollow

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

please help me....................