Actualmente esta asi:
Dim ConnectString, conn
ConnectString = "Driver={Microsoft Access Driver (*.mdb)};" & Server.Mappath("BD/email.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
y tu quieres que lo ponga asi:
Dim cnn
Set cnnDB = Server.CreateObject ("ADODB.Connection")
cnnDB.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnDB.Open Server.MapPath ("database/xxx.mdb")
perdona que pregunte brujita pero soy algo nuevo en esto y quiero aprender solo, tu entenderas..
gracias