% ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\home\partidodarepublica.org.br\database\pr.mdb;" Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open ConnString Set Registros = Server.CreateObject("ADODB.Recordset") Registros.Open "Table1", Conexao %>