كود الربط لو سمحتم

اخوانى الاعزاء السلام عليكم فضلا ساعدونى انا اريد ود الربط بين فيجوال بيسك 6 oracle 10 g

مع العلم ان هذا هو الكود الرابط بين البيسك واوراكل 9i

Public OrAc As String

Public OraSe As OracleInProcServer.OraSessionClass

Public Ordbf As OraDatabase

Dim User_Name as String ,PassWord as String

وايضا جمله الربط بواسطه o4o

User_name="Scott"

PassWord ="Tiger"

Connect = User_name + "/" + PassWord

Database = "Oracle"

Set Ordbf = OraSe.OpenDatabase(Database, Connect, &H0&)

ارجوا ان ترسلو الى كود الربط بين اى ابلكيشن بالفيجوال بيسك 6 واصدار oracle10g

ولكم جزير الشكر