För det första; du måste använda 'SET' framför raden där du skapar adodb.connection. :)
Vidare kan du inte använda execute-metoden om du skall utnyttja recordcount. Du måste öppna med en annan cursortype.
[b]set[/b] Connect = Server.CreateObject("ADODB.Connection")
set recset = Server.CreateObject("ADODB.RecordSet")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Database/Medlemmar.mdb")
sql = "select * from Medlemmar where datediff('d',now(),cdate(cstr(year(now()))"&" & '-' & mid(Fodd,6,2) "& " & '-' & mid(Fodd,9,2))) = 0"
[b]recset.open sql, connect, 3, 3[/b]
response.write recset.recordcount
Det där borde fungera.
Den andra feta raden hänvisar jag från detta inlägg av @nders, då jag inte är 100% säker på parametrarna.