关于ADO连接远程Oracle的问题，请各位大大有空看一下，帮小妹我解决一下

我用ADO连接Oracle服务器，完全代码如下：
Option ExplicitPublic Enum RSMethod
  VIEW_RECORD = 0
  EDIT_RECORD = 1
  EXEC_SQL = 2
  NEW_RECORD = 3
End Enum
'dbConnection函数
Function dbConnection(strDatabaseType As String, strDBService As String, Optional strUserID As String, Optional strPassword As String) As ADODB.ConnectionDim objDB As New ADODB.Connection
Dim strConnectionString As StringLabel1.Caption = "a"
If strDatabaseType = "ORACLE" Then
 '定义ORACLE数据库连接字符串
 strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=" & strDBService & ";UID=" & strUserID & ";PWD=" & strPassword & ";"
'strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=LJTEST;Uid=new;Pwd=new;"
End IfLabel2.Caption = "b"
With objDB
.Mode = adModeReadWrite ' 连接模式
.ConnectionTimeout = 10
.CommandTimeout = 5
.CursorLocation = adUseClient
.Open strConnectionString
End WithLabel3.Caption = "c"
Set dbConnection = objDB
End FunctionPrivate Sub Command2_Click()
  Dim objConn As New ADODB.Connection
  
  Dim strDBType As String
  Dim strDBName As String
  Dim strUserID As String
  Dim strPassword As String
  
  strDBType = "ORACLE"
  strDBName = "LJTEST"
  strUserID = "new"
  strPassword = "new"
  
  Set objConn = dbConnection(strDBType, strDBName, strUserID, strPassword)
End Sub通过单击“Command2”按钮测试连接是否成功，可是始终连不上，远程Oracle的服务器的一些信息：host=aaalj
SERVICE_NAME=LJTEST
用户名/密码：new请问我上面的代码哪里有问题，导致无法连接远程Oracle服务器呢?