I solved it with SQL.Dmo

Tech-Archive recommends: Speed Up your PC by fixing your registry

Function Main()
Dim Cn, RS, F

Set Cn = CreateObject("SQLDmo.SqlServer")
Cn.LoginSecure = True
Cn.Connect "(local)"
Set RS=Cn.Databases("LTSB").ExecuteWithResults("Select ... From ... Where ...")
F = RS.GetColumnString (1,1)
..
..
..
Main = DTSTaskExecResult_Success
End Function