Private Declare Function SQLSetEnvAttr Lib "odbc32.dll" (ByVal henv As > Any, ByVal Attr As Long, ByVal ValPtr As Any, ByVal StrLen As Long) As > Long > Private Const SQL_ATTR_CONNECTION_POOLING As Long = 201 > Private Const SQL_CP_OFF As Long = 0 > Private Const SQL_CP_ONE_PER_DRIVER As Long = 1 > Private Const SQL_CP_ONE_PER_HENV As Long = 2 > > Dim ReturnCode As Long > ReturnCode = SQLSetEnvAttr(vbNullString, SQL_ATTR_CONNECTION_POOLING,SQL_CP_ONE_PER_DRIVER, 0) >>
#define SQL_ATTR_CONNECTION_POOLING 201 #define SQL_CP_OFF 0 #define SQL_CP_ONE_PER_DRIVER 1 #define SQL_CP_ONE_PER_HENV 2 DECLARE SHORT SQLSetEnvAttr IN odbc32 INTEGER henv, INTEGER Attr, INTEGER ValPtr, INTEGER StrLen ReturnCode = SQLSetEnvAttr(vbNullString, SQL_ATTR_CONNECTION_POOLING,SQL_CP_ONE_PER_DRIVER, 0)not tested!