weird datagrid..

[berry]

Hi...
I very need yours help. I having a very weird problem. I want to consider the datagrid is empty or not, then if not empty, i want to total up the value. I using datagrid.text <> "" in my code. Overall i have 3datagrids. The program run smoothly at the first 2datagrids. But when reach to the third datagrids, It occurs error "data access error". What is the proint?? Please help me!
Thank you..

If datagrid1.Text <> "" Then
            Adodc1.Recordset.MoveLast
            Do While (Adodc1.Recordset.BOF <> True)
                total1 = total1 + Adodc1.Recordset.Fields("Hour")
                Adodc1.Recordset.MovePrevious
            Loop
                txt1.Text = total1   'place in a text box
        Else
        End If
 
        If datagrid2.text <> "" Then
            Adodc2.Recordset.MoveLast
            Do While (Adodc2.Recordset.BOF <> True)
                total2 = total2 + Adodc2.Recordset.Fields("Hour")
                Adodc2.Recordset.MovePrevious
            Loop
                txt2.Text = total2
        Else
        End If
 
        If datagrid3.Text <> "" Then
            Adodc3.Recordset.MoveLast
            Do While (Adodc3.Recordset.BOF <> True)
                total3 = total3 + Adodc3.Recordset.Fields("Hour")
                Adodc3.Recordset.MovePrevious
            Loop
                txt3.Text = total3
        Else
        End If