I am getting run-time error '6' overflow while running the macro

Option Explicit

Sub pasting_value(rs As ADODB.Recordset, r As Integer, c As Integer)

Dim i As Integer
i = 1


With rs
.MoveFirst
Do Until rs.EOF
**If Cells(i + r, c - 1).Value = DateSerial(Left(CStr(rs.Fields("date")), 4), Mid(CStr(rs.Fields("date")), 5, 2), Right(CStr(rs.Fields("date")), 2)) Then