da quello che ho potuto capire prova così
codice:
Set connCW = Server.CreateObject("ADODB.Connection")
connCW.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/cassa.mdb")
set rs =server.CreateObject("adodb.recordset")

'se nel tuo db giorno è in formato data/ora 
'sSQL="Select * From Cassa WHERE giorno=#"&today&"#"
'se nel tuo db giorno è in formato testo 
'sSQL="Select * From Cassa WHERE giorno='"&today&"'"

Bar=birre*nbirre+bibite*nbibite+acqua*nacqua+caffe*ncaffe

'****************************
'modificato

If ucase(From) = "BAR" then
'***************************

rs.Open ssql, connCW, 2, 3
Do while not rs.EOF
conta = 1
rs("Bar") = rs("Bar")+Bar
Response.Redirect "OK.asp?from=cassa&Barnew=" & Bar & "&Somma=" & rs("Bar") & ""
rs.MoveNext
Loop

end if