我个人没有用过informix,以下内容来自baidu

事先声明：我们只对本公司书中内容负责。

用setnet32设置完了之后，直接使用DNS进行连接吧
修改了setnet32之后，实际上是修改了注册表的设置，如果你再次进入的时候，发现setnet32没设置成功，要重新设置。
协议一般采用onsoctcp

'连接本站数据库(ADO   使用Informix)
Public   Function   ConnectInformixServer（)   As   Boolean
        Dim   strConnect   As   String
       
        On   Error   GoTo   Error_ConnectInformixServer
       
        gADOConnection.CursorLocation   =   adUseClient
        strConnect   =   "Dsn= "   &   DNS名称   &_
                              ";Host= "   &   IP地址   &   _
                              ";Server= "   &   服务器名称   &   _
                              ";Service=Prod_TCP; "   &   _
                              "Protocol=onsoctcp; "   &   _
                              "Database= "   &   数据库名称   &   _
                              ";Uid= "   &   用户名   &   _
                              ";Pwd= "   &   密码
        gADOConnection.ConnectionTimeout   =   15
        gADOConnection.Open   strConnect
               
        ConnectInformixServer   =   True
        Exit   Function
       
Error_ConnectInformixServer:
        ConnectInformixServer   =   False
End   Functio