What I am trying to do is return the objects 'cn' and 'rs' from the function below. This is what I have:
Function OpenRecordSet(cn_str, uid, pwd, sql)
Dim cn, rs, dbCollection()
CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001
Set cn = CreateObject("ADODB.Connection")
cn.Open...