Ciao!
Prova a fare in questa maniera!

<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")

' connessione a database Access
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\provaguestbook\guestbook .mdb"

Conn.open

Dim RS, SQL

set RS = Server.CreateObject("ADODB.Recordset")

SQL = "select * from nometabella ;"

RS.open strSQL, Conn, 3, 3

...
%>

Saluti

Metalsniper