DOMINO远程连接Oralce （ADO）

Sub Initialize
 On Error Goto errhandle
 
 Dim ConnectString As String
 ConnectString="Provider=OraOLEDB.Oracle;Password=密码;User ID=帐号;Data Source=""(DESCRIPTION=(ADDRESS_LIST=(ADDRESS = (PROTOCOL = TCP)(HOST = 远程服务器IP)(PORT = 端口)))(CONNECT_DATA=(SERVICE_NAME = 服务名)))"";Persist Security Info=True"  
 
 Dim sql As String
 sql=|SELECT * FROM APPS.HR_ORGANIZATION_UNITS|
 
 Set con=CreateObject( "Adodb.Connection")
 con.Open ConnectString
 Set RSt = CreateObject("ADODB.RecordSet")
 
 Rst.Open sql , con, 3,3
 
 RSt.MoveFirst
 
 While RSt.EOF<>True
  Msgbox RSt.Fields("CUSNAME").value
  RSt.MoveNext
 Wend
 
exitsub:
 Set RSt=Nothing
 If Typename(con)="OBJECT" Then
  con.Close
 End If
 Set con = Nothing
 Exit Sub
errhandle:
 Msgbox "t111:(" & Erl() & ")" & Error()
 Goto exitsub
End Sub