[VB6+Base Access]probleme avec des dates calculées

Bonjour j'ai un probleme dans mon code car mon application generes certaines date avec un mois = '00' comme '20070012'
voilà un bout du code quelqu un pourrai m expliquer d ou peux provenir le probleme car y a certaine chose que je comprend pas dans le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Select Case lngMonth
  Case 0
    If Not IsNull(rsBafi400.Fields("ORED")) Then
      rsBafi400.Fields("DATEDEPART") = Format(Year(rsBafi400.Fields("ORED")), "0000") & _
            Format(Month(rsBafi400.Fields("ORED")), "00") & _
            Format(Day(rsBafi400.Fields("ORED")), "00")
    End If
    If Not IsNull(rsBafi400.Fields("MDAT")) Then
      rsBafi400.Fields("DATEEND") = Format(Year(rsBafi400.Fields("MDAT")), "0000") & _
            Format(Month(rsBafi400.Fields("MDAT")), "00") & _
            Format(Day(rsBafi400.Fields("MDAT")), "00")
    End If
  Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 'Mois
    'Previous
    If Month(Date) = lngMonth Then
      If Day(Date) > intDay Then
        rsBafi400.Fields("DATEDEPART") = (Year(Date) - 1) & Format(lngMonth, "00") & Format(intDay, "00")
      Else
        rsBafi400.Fields("DATEDEPART") = Year(Date) & Format(lngMonth, "00") & Format(intDay, "00")
      End If
    Else
      If Month(Date) > lngMonth Then
        rsBafi400.Fields("DATEDEPART") = (Year(Date) - 1) & Format(lngMonth, "00") & Format(intDay, "00")
      Else
        rsBafi400.Fields("DATEDEPART") = Year(Date) & Format(lngMonth, "00") & Format(intDay, "00")
      End If
    End If