简单问题~~~~~~~~~~~~~

想在datagrid里的指定字段和Excel的指定字段的值相同时,就弹出对话框
For j = 1 To 10
    DataGrid1.Row = 1
    DataGrid1.Col = 1
    ABC = DataGrid1.Text
        For i = 1 To 10
        DEF = adoRS.Fields.Item(0).Value
            If Format(ABC, "yyyy-mm-dd") = Format(DEF, "yyyy-mm-dd") Then
            MsgBox "haha"
            End If
        adoRS.MoveNext
        Next i

    Next j
这样写有错吗