dim cnn as adodb.connection
set cnn =new connection
dim strConnect as stringCnn.CursorLocation = adUseClient
Cnn.ConnectionTimeout = 10
strConnect = "Driver={Sql Server};Server=ntserver;DataBase=DBName;UID=sa;pwd="
Cnn.Open strConnect
set cnn =new connection
dim strConnect as stringCnn.CursorLocation = adUseClient
Cnn.ConnectionTimeout = 10
strConnect = "Driver={Sql Server};Server=ntserver;DataBase=DBName;UID=sa;pwd="
Cnn.Open strConnect
cnSVR.ConnectionTimeout = 15
cnSVR.Open