pb au niveau du code VB

salut tous le monde
voir est ce que ce code est correct car il me donner chque execution le message suivant

http://i34.photobucket.com/albums/d1...anstitre-1.jpg

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
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub afficher_grd()
Dim rs As New ADODB.Recordset
Dim str As String
Dim i As Integer
Dim heure
Dim jour
Dim moi
Dim annee
Dim DateReel
grid1
ouvrir_bd
jour = Month(dptDateCopi)
moi = Day(dptDateCopi)
annee = Year(dptDateCopi)
DateReel = jour & "/" & moi & "/" & annee
str = "SELECT MarcacoesCorrigidas.IdFuncionario, MarcacoesCorrigidas.Data, MarcacoesCorrigidas.[1ENT], MarcacoesCorrigidas.[1SAI], MarcacoesCorrigidas.[1EDesvio], MarcacoesCorrigidas.[1SDesvio], MarcacoesCorrigidas.Resultado From MarcacoesCorrigidas Where MarcacoesCorrigidas.Data=#" & DateReel & "# ORDER BY MarcacoesCorrigidas.IdFuncionario"
rs.Open str, cnx, adOpenDynamic, adLockOptimistic
i = 1
Do While Not rs.EOF
        heuretravail = #12:00:00 AM#
        gd1copi.TextMatrix(i, 1) = rs!IdFuncionario
        gd1copi.TextMatrix(i, 2) = rs!Data
        gd1copi.TextMatrix(i, 3) = "" & rs![1ENT]
        gd1copi.TextMatrix(i, 4) = "" & rs![1SAI]
        gd1copi.TextMatrix(i, 5) = "" & rs![1EDesvio]
        gd1copi.TextMatrix(i, 6) = "" & rs![1SDesvio]
        gd1copi.TextMatrix(i, 7) = rs!Resultado
        heuretravail = heuretravail + (rs![1SAI] - rs![1ENT])
        heuretravail = Hour(heuretravail)
        If heuretravail > 8 Then
        MsgBox i & "--> " & heuretravail & "--> sup"
        rs![1SAI] = #8:00:00 AM# + rs![1ENT]
        rs.Update
        End If
        i = i + 1
        rs.MoveNext
        gd1copi.Rows = gd1copi.Rows + 1
Loop
rs.Close
End Sub

merci en avance;)