valeu galera, consegui a pouco instantes com a ajude de um colega a fazer isso funcionar... vejam como ficou:

==================================================

            Dim i As Integer
            Dim FlagEncontrou As Boolean
            FlagEncontrou = False
            'a primeira coluna é o Codigo de Barras e a segunda é a quantidade
            'MSFlexGrid1.cols = 5
           
            If MSFlexGrid1.rows > 1 Then
                For i = 1 To (MSFlexGrid1.rows - 1)
                    If MSFlexGrid1.TextMatrix(i, 0) = Text3.Text Then
                        MSFlexGrid1.TextMatrix(i, 4) = MSFlexGrid1.TextMatrix(i, 4) + 1
                        FlagEncontrou = True
                        '.Row = I
                        Exit For
                    End If
                Next i
            End If

        With MSFlexGrid1
            If FlagEncontrou = False Then
                nLinhas = .rows + 1
                .rows = nLinhas
                nPos = .rows - 1
                .Row = nPos
                .Col = 0 'insere dados na coluna 1
                .Text = TabMaterial("NrMaterial")
                .Col = 1
                .Text = TabMaterial("NomeMaterial")
                .Col = 2
                .Text = TabMaterial("Grupo")
                .Col = 3
                .Text = TabMaterial("Unid")
                .Col = 4
                .Text = "1"
                .Refresh
            End If
        End With
=================================================

agora esta do jeito q eu queria... valeu pela atenção... e obrigado a todos!

 

:)