从Excel连接配置单元

Question

是否可以帮助我编写VBA代码以连接Hive Server？我试过这样的。

Sub test()
Dim conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set Data = Sheets("Sheet1")
Data.Select
conn.Open "PROVIDER=org.apache.hive.jdbc.HiveDriver;DATA SOURCE=database;USER ID=usrid;PASSWORD=pwd"
Cmd.ActiveConnection = conn
End Sub

谢谢。