Set xjCon = New Connection
  
  '设置服务器名称,数据库名称,登录名(此时假设密码为空)
Dim ServerName1 As String, DBName1 As String, UserName1 As String, strPwd1 As String
  ServerName1 = "A"
  DBName1 = "ftoracle"
  UserName1 = "SYSTEM"
  strPwd1 = "manager"
    
  '连接到数据库
  With xjCon
     .CursorLocation = adUseClient
     .CommandTimeout = 1000
     .ConnectionString = "Provider=MSDAORA.1;DRIVER={oracle};SERVER=" & ServerName1 & ";DATABASE=" & DBName1 & ";UID=" & UserName1 & ";PWD=" & strPwd1
     .Open
  End With
End Sub