






======================================

Function Connect ()
Dim DB
Set DB = Server.CreateObject("ADODB.Connection")
DB.Mode = adModeReadWrite
DB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(БД) & ";uid=;pwd=;"
Set Connect = DB
End Function

Set users = Connect ().Execute ("..........................")

Set users = nothing

===================

Спасибо за внимание!