数据追加求教：谢谢您！！！！

数据追加求教：
以下是我写的一段把ccc.dat里（符合条件：日期不同）数据加入到ccc1.dat文件里，如日期以有，就不加入，如没有就加入，请高手帮助修改一下代码，使之能正常运行，谢谢！！！
模块：
Public Type MBW
mMC(1 To 4) As Byte
rRQ As Date
zZF(1 To 4) As Byte
End Type

程序：
Private Type Record
mMC As String * 4
rRQ As Date
zZF As String * 4
End Type
Private MBWJ() As MBW
Private MBWJ1() As MBW
Private Sub Command1_Click()
Dim aaa As MBW
Dim bbb As MBW1
Dim a, b, c, d, i, w, z, v, y, h, j As Integer
On Error Resume Next
z = FreeFile
Open App.Path & "\ccc.dat" For Binary Access Read As #z
a = LOF(z) / Len(aaa)
ReDim MBWJ(a)
For i = 1 To a
Get #z, , MBWJ(i)


Open App.Path & "\ccc1.dat" For Binary Access Read Write As #1
b = LOF(1) / Len(bbb)
ReDim MBWJ1(b)
For c = 1 To b
Get #1, , MBWJ1(c)
v = LOF(1)

If v > 0 Then
Seek #2, v + 1
End If
'数组比较
For j = 1 To a
For w = 1 To b
If MBWJ(w).rRQ = MBWJ1(j).rRQ Then

addLen = False
Exit For
Else
addLen = True
End If
Next
If addLen = True Then

Put #1, , MBWJ(j).rRQ
End If
Next
Next
Close #1


Next
Close #z
End Sub