Visual Basic - leandro

Hola..... Bueno voy al grano tengo un pequeño problemilla con el codigo de abajo es que resulta que yo tengo que agregar un registro segun las condiciones y una ves agregado que se acumule segun las condiciones eso pasaria todo los dia el problema es que el update handa bien pero el into no hace nada y lo tengo que agregar a mano y si handa me sige agregando. Bueno espero que me contesten desde ya muchas gracias.

sqlnul = "select * from montos 'where montos.fecha=#" & Date & "# and montos.id_empleado = " & txtmozo.Text & ""
Set rcs4 = db.OpenRecordset(sqlnul)

If Not rcs4.EOF Then

db.Execute "update montos set monto=monto + " & totalxunidad & " where montos.fecha = #" & Format(Date, "mm/dd/YYYY") & "# and montos.id_empleado = " & Val(txtmozo.Text) & ""
consulfecha = "select * from montos where montos.fecha = #" & Format(Date, "mm/dd/YYYY") & "# and montos.id_empleado = " & Val(txtmozo.Text) & ""
Set rcs4 = db.OpenRecordset(consulfecha)
If Not rcs4.EOF Then
rcs4.MoveFirst
If rcs4.Fields(0) = "Null" Then
db.Execute "INSERT INTO montos(id_empleado,monto,fecha)values (" & Val(txtmozo.Text) & " ," & totalxunidad & ", #" & Format(Date, "mm/dd/YYYY") & "# )””

End If
End If

Cambia esto ->> If rcs4.Fields(0) = "Null" Then
Por Esto -->> If IsNull(rcs4.Fields(0)) Then

Saludos !

Gracias por responder.