Conexão com banco Access

para fazer a conexão criei duas subs conforme o código abaixo, mas alguma coisa está errada pois está dando erro na instrução bc.open, alguém pode me dar uma luz???? valeu galera!!!sub OnProgramaRSocial set bc = Server.CreateObject("ADODB.Connection") bc.open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Banco de dados do MSAccess;DBQ=C:\san\IBREICQ\responsabilidade_social.mdb;"end subsub OffProgramaRSocial bc.close : set bc = nothingend sub