Fler krav (WHERE) i en SELECT sats

Har nu slagit knut på mig själv.
Vill hämta information från två olika kolumner i en tabell.
Någon som kan titta och se om jag har skrivit fel i min SELECT sats. Informationen under Date ligger som en textsträng.

<%
Dim Hamta, Dagensdatum

Dagensdatum = Date
'Response.Write Dagensdatum

Set RecSet = Server.CreateObject("ADODB.Recordset")
Hamta = "SELECT * FROM FranVaro WHERE Date = '" & Dagensdatum & "' AND WHERE DatumVisa = 'Ja' ORDER BY Namn ASC"
'Response.Write Hamta
'Response.End
RecSet.Open Hamta, DB, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF
Dim ID
IDvisa = RecSet("ID")

%>
OSV ....

Får detta felmeddelande

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Date = '2004-03-25' AND WHERE DatumVisa = 'Ja''.

Blir jätteglad om någon kan hjälpa mig med detta

/Annette

Date är ett reserverat ord, och om fältet är av typen datum ska det finnas fyrkanter runt datumet. Detta gäller dock endast Access.

Hamta = "SELECT * FROM FranVaro WHERE [Date] = #" & Dagensdatum & "# AND WHERE DatumVisa = 'Ja' ORDER BY Namn ASC"

Hamta = "SELECT * FROM FranVaro " & _
" WHERE [Date]  = DATE() AND DatumVisa = 'Ja' " & _
" ORDER BY Namn ASC"

Flyttas från ASP

Tack för era snabba svar, men tyvärr får jag samma fel även om jag ändrar Date i Access till Datum/tid.
Kör jag bara ett krav typ WHERE [Date] = #" & Dagensdatum & "# fungerar det eller bara det andra kravet WHERE DatumVisa = 'Ja' fungerar det också, men tillsammans går det inte.
Min access databas ser ut så här
ID | Namn | FranVaro | Klocka | DatumAter | DatumVisa | Date
1 |Kalle Pettersson | Sjuk | tomt | 2004-03-26 | Ja | tomt |
2 |Arne Stenqvist| Möte | 14.00-15.00| tomt|tomt| 2004-03-25 |

Frågan är om den reagerar över att visa fält är tomma eller ??

/Annette

Kan du inte utnyttja fällttypen Ja/Nej i stället? I så fall kan du använda booleanska värden i stället för "Ja" osv. :)

Jaha, men nu får du förklara vad du menar med detta .... jag är inte superhaj ... men vill gärna lära mig mer :)

/Annette

Hamta = "SELECT * FROM FranVaro " & _
" WHERE ([Date]  = DATE() or [DATE] is null) " & _
" AND (DatumVisa = 'Ja'  or DatumVisa is null)" & _
" ORDER BY Namn ASC"

Tack, nu fungerar det som jag vill.
Det var jättesnällt!! :)
Nu kan jag gå och nanna kudde.

/Annette