Jeg har taget og tilrettet din kode således:
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tlf.mdb")
Conn.Open DSN
strSQL = "SELECT COUNT(*) AS antal FROM personer"
Set rs = Conn.Execute(strSQL)
If Not rs.EOF Then
Response.Write "<p>Antal personer: " & rs("antal") & "</p>"
End If
Jeg har ikke testet det af, men prøv ovenstående kode og se om ikke det fungere.