How to connect multiple oracle databases using VB script and write multiple SQL query

Sub Ora_Connection()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Cmd As New ADODB.Command
Dim sqlText As String
Dim query As String
Dim Row As Long
Dim Findex As Long
Dim Data As Worksheet
Dim X As Long
Dim UID As String
Dim PWD As String
Dim Server As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim strSQL As String
Dim strCon As String
Dim strResult As String
Dim OraDynaSet As Object
Dim i As Integer
Application.Calculation = xlCalculationManual
Set Data = Sheets("Sheet1") 'Change this to the name of the sheet you want to return data to
Data.Select
Range("A:F").ClearContents 'Change A:F to the range you expect data to return to
'---- Replace below highlighted names with the corresponding values
strCon = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=<server_name>)(PORT=<port_number>))" & _
"(CONNECT_DATA=(SID=<db_name>))); uid=user_name; pwd=password;"

'---  Open   the above connection string.
con.Open (strCon)
'---  Now connection is open and you can use queries to execute them.
'---  It will be open till you close the connection
Cmd.ActiveConnection = con
Cmd.CommandType = adCmdText

' Put your query next
sqlText = " select name from v$database "

Cmd.CommandText = sqlText
Set rs = Cmd.Execute
Do While Not rs.EOF 'this loops through the data and puts it in the spreadsheet
Row = Row + 1
For Findex = 0 To rs.Fields.Count - 1
Data.Cells(Row + 1, Findex + 1) = rs.Fields(Findex).Value
Next Findex
rs.MoveNext
Loop
Application.Calculation = xlCalculationAutomatic
Application.Calculate
End Sub