Connection code works in Excel but not in Extra

[BCapel]

I am trying to connect to our mainframe d/b to issue some SQL statements within an Extra macro but the connection keeps bombing out. The same code works fine in an Excel macro so it's not the code, it must be something else. Here is the code.

Sub Main

dim sys as object, sess as object, myscreen as object

set sys = createobject("EXTRA.System")
set Sess = sys.activesession

dim cn_dat as object
dim rs_dat as object

set cn_dat = createobject("adodb.connection")

cn_dat.open "Provider = MSDASQL" & _
"Data Source=CA-Datacom Mainframe;" & _
"User Id =bc01q;" & _
"Password =1111"

'Recordset logic goes here once the connection works

End Sub

Any help would be greatly appreciated.

Thanks, Brian