通过 VBA 连接到 Vertica

Connection to Vertica via VBA

我正在尝试通过 VBA 代码连接到 Vertica。但是我遇到了这个错误:

 Run Time Error '-2147467259 (80004005)':
 Automation error
 Unspecified error

我做错了什么?

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset

Dim strConn As String
strConn = "Driver={Vertica}; Servername=localhost; 
Database=jdbc:vertica://JSVERTICA:5433/PVXDW; Username=admin; Password=pass"

cn.Open strConn
cn.Close
Set cn = Nothing
MsgBox "Connected"

请如下更改strConn值并尝试连接数据库。

strConn = "Provider=VerticaOLEDB.1;Data Source=JSVERTICA;Initial Catalog=PVXDW;User ID=admin;Password=pass;"