Prova così

<%
Set DataWeb = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\mdb-database\miodb.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DataWeb .Open DBString
Dim RecSet
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "CampoDB "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "TabellaDB"
Set RecSet= DataWeb.Execute(sqlquery)

Dim kdo
kdo = RecSet("CampoDB")

set RecSet= nothing
set DataWeb = nothing
%>

Poi nella tua pagina HTML insersci questo:

<td>
<font color="#666600" face="Verdana" size="2"><%=kdo%></font></p>
</td>



ciao

ma in questo codice:
<%
dim stringa
dim sql
dim rs
dim conne
conne=server.createobject("ADODB.Connection")
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/mdb-database/utenti_be.mdb")
conne.Open stringa
sql="select memo from contenuti"
rs.open sql
if rs.EOF then
response.write ("nessun dato")
while not rs.eof
response.write (rs)
rs.movenext
wend
end if
%>
Dove definisci che rs è un recordset?
<%
dim stringa
dim sql
dim rs
dim conne
set conne=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/mdb-database/utenti_be.mdb")
conne.Open stringa
sql="select memo from contenuti"
rs.open sql,3,3
if rs.EOF then
response.write ("nessun dato")
Else
while not rs.eof
response.write (rs)
rs.movenext
wend
end if
%>

Ciao, oltre al codice, spero che hai risolto, vorrei darti un consiglio.
Il database non metterlo in public/....

la public è una cartella dove tutti possono accedere (di solito) quindi il db li è molto vulnerabile, lo possono scaricare e modificare a piacimento.

PS se leggi nel forum c'è un topic simile intitolato "SICUREZZA".


Ciao ciao

attenzione, se parli di aruba, l a dir dove mettere il dbase e mdb-database

ciau