Oracle VBA Working ConnectionString OraOLEDB

Dim cnt As New adodb.Connection
Set cnt = New adodb.Connection

connStr = "Provider=OraOLEDB.Oracle;Data Source=HIBUDP1;User Id=Budget;Password=xxxx#xx;"
cnt.Open connStr


Set rst = cnt.Execute(SQL_Str)