Dato i select-sætning

Jeg har et problem med en select-sætning.

Jeg skal have den til at udvælge alle records mellem dags dato og uendeligt frem i tiden.

Det skal gøre sådant at der kun vises poster hvor feltet "vis_indtil" er lig med eller nyere end dags dato

Lige nu ser min kode sådan ud:

DIM fra, til

fra = FormatDateTime(Now(), vbShortDate)
til = 31-12-2049

Set rs =  Server.CreateObject("ADODB.Recordset")
sql = "Select top 10 * from nyheder where vis_indtil <= " & fra & " AND vis_indtil >= " & til & " ORDER by NyhedsID DESC"