В этом коде объявляется новый

Пример 6

В этом коде объявляется новый объект Connection, который затем используется для подключения к БД SQL Server: Set cn = New rdoConnection
With cn
.Connect = "DSN=pubs;UID=sa;PWD="
. EstablishConnection
EndWith