Veja como é fácil.
• Comum:
Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbdatabase.mdb")
• Provider:
• Iniciar conexão:
<%
cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("db/database.mdb")
set conn = CreateObject("ADODB.Connection")
conn.open cst
sql = "select * from tabela"
set consulta = conn.execute(sql)
%>
• Finalizar Conexão (muito importante):
<%
conn.close
Set conn = Nothing
%>
