"PROVIDER=SQLOLEDB.1;PASSWORD=12345;PERSIST SECURITY INFO=TRUE;USER ID=username;INITIAL CATALOG=DBName;DATA SOURCE=Server;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;"

Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Set conn = New ADODB.Connection
Set cmd = New ADODB.Command
login = ...
pass = ...
conn.Open "Provider=OraOLEDB.Oracle.1;Password=" & pass & ";Persist Security Info=True;User ID=" & login & ";Data Source=..."

conn.BeginTrans
cmd.ActiveConnection = conn
...
createTable = "create table test (id integer, name varchar(256))"
cmd.CommandText = createTable
cmd.Execute