Visual Basic - Error al no encontrar la fecha(nul)

Dim ConexBD As String

Dim BD As ADODB.Connection

Dim rs As ADODB.Recordset

ConexBD = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\System\TIENDA.mdb; Jet OLEDB:Database"

'Crear los objetos

Set BD = New ADODB.Connection

Set rs = New ADODB.Recordset

'conecto con la base de datos

BD.Open ConexBD

'SELECT SUM(unidades) AS total FROM pedidos WHERE fecha=Now();

rs.Open "SELECT sum(COSTO) as TOTAL FROM VENTAS where FECHADEVENTA=date()   ", BD, adOpenDynamic, adLockOptimistic

If rs.State <= 1 Then

MsgBox "No se registraron ventas hoy", 16, "Atenciòn"

Else

MsgBox rs.Fields("TOTAL")""Me dice que rs.fields es null cuando no hay ventas""

End If

'el recorset se llama RSIO en tu ejemplo cambialo

    If Rsio.EOF = True And Rsio.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"

    Rsio.Close

    Exit Sub

   else

MsgBox rs.Fields(0)  ""Me dice que rs.fields es null cuando no hay ventas""

    End If