Runtime error '440': unable to make connection,ORA-06413

[deepakbellale]

Urgent issue
this is my code

Private Sub Command1_Click()
'Declare variables
Dim OraSession As Object
Dim OraDatabase As Object
Dim OraDynaset As Object

'Create the OraSession Object.
Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'Create the OraDatabase Object by opening a connection to Oracle.
Set OraDatabase = OraSession.OpenDatabase("sampleDBname", "username/password", 0&)

'Display the username and database to which you have connected.
MsgBox "Connected to " & OraDatabase.Connect & "@" & OraDatabase.DatabaseName
End Sub

Using this application. the exe file runs fine in program files but its fails in program files(x86)

system details:
windows 7 64bit
oracle 11g

please help me out

advance thanks