Dim cnn
Dim str
Dim rs
Dim SQL
DBName = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\foros\Foro.mdb"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open DBName
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn