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

اخوانى الاعزاء السلام عليكم فضلا ساعدونى انا اريد الربط بين فيجوال بيسك 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
وايضا جمله الربط بواسطه oo4o
User_name="Scott"
PassWord ="Tiger"
Connect = User_name + "/" + PassWord
Database = "Oracle"
Set Ordbf = OraSe.OpenDatabase(Database, Connect, &H0&)
ارجوا ان ترسلو الى كود الربط بين اى ابلكيشن بالفيجوال بيسك 6 واصدار قواعد بيانات oracle10g
ولكم جزير الشكر