Dansk Dato

Jeg har brugt dette:

sql = \"SELECT Format(dato,\'dd-mm-yyyy\') as DatoStr, * FROM tabel\"
Set rs = con.execute(sql)

dato er i  rs(\"datostr\")

Hvordan får man det så sat sammen med denne kode??

strSQL = \"SELECT ID, fra, til, bilagsnr, dato, kontonr, afd, emne, soegeord FROM bilag WHERE\"
strSQL = strSQL & \" (fra LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (til LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (bilagsnr LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (dato LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (kontonr LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (afd LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (emne LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (soegeord LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" order by dato desc\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"_private/bilag.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

Mvh. Jacob

strSQL = \"SELECT ID, fra, til, bilagsnr, Format(dato,\'dd-mm-yyyy\') as DatoStr, kontonr, afd, emne, soegeord FROM bilag WHERE\"

Jeg takker og bukker :-))