Access baza - 2 Tabele - 2 MSHFlexGrida

Code:
Dim lCol As Long, lRow As Long
Dim PrazneCelije As Long

    For lRow = 1 To MSHFlexGrid1.Rows - 1
        If MSHFlexGrid1.TextMatrix(lRow, 0) = MSHFlexGrid1.TextMatrix(0, 0) Then
            'Upisi Vrijednost
        ElseIf MSHFlexGrid1.TextMatrix(lRow, 0) = "" Then
            PrazneCelije = PrazneCelije + 1
        End If
    Next lRow