[求助]informix数据库的SQL连接问题

solariver

刚接触SQL，想弄一个查询工具，但是在下面的程序执行到“cn.Open strCn   ”时，出现“未发现数据库源名称并且未指定默认驱动程序”的错误（见程序下方）。是不是strCn有错（提示的错误好像是说Dsn和Driver有错，Dsn和Driver不知道怎么填）

哪位高手指点一下，谢谢了！

Sub PMSQL()
Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset  '定义记录集对象，保存数据表
'Dim cm As New ADODB.Connection
Dim strCn As String, strSQL As String '字符串变量
strCn = "Dsn='';Driver={INFORMIX 3.30 32 BIT};Host=10.***.***.17;Server=omc_sys;Service=5000;Protocol=olsoctcp;Database=omc_db;UID=******;PWD=******"

strSQL = "select " & _
" en3.relative_log_name,en2.relative_log_name,en1.relative_log_name,dproc.fragment_date," & _
" dproc.cpu_usage_mean , dproc.cpu_usage_min, dproc.cpu_usage_max, dproc.prp_load_mean, dproc.prp_load_min, dproc.prp_load_max" & _
" from DPROC_STATISTICS dproc,entity en1,entity en2,entity en3" & _
" where dproc.network_id = en1.network_id" & _
" and en2.network_id=en1.parent_id" & _
" and en3.network_id=en2.parent_id" & _
" and extend(dproc.fragment_date,year to day)='2008-01-17'" & _
" order by en3.relative_log_name,en2.relative_log_name,en1.relative_log_name,dproc.fragment_date" '定义SQL查询命令字符串
cn.Open strCn  
rs.Open strSQL, cn 

End Sub