VSFlexGrid: программные переходы по ячейкам. - VB

Формулировка задачи:

Если есть люди которым не жалко своего времени спроектировать алгоритм, пожалуйста отзавитесь, люди добрые, или совет какой дайте, а то знаний маловато.
Задолбался уже, пишу программу с контролом VSFlexGrid, мне нужно при корректировке индексного поля проверить на совпадение всю колонку, если совпадение есть то значение поля должно вернуться в исходное и включиться режим редактирования поля (EditCell()). Если, вписав не правильное значение, пользователь ушел с ячейки то курсор должен вернуться обратно для ввода правильного значения. Я уже задолбался с реализацией возврата на эту ячейку - не всегда получается программно вернуть фокус на нее (в чем и собственно проблема). Метод Select, которым я устанавливаю положение курсора, не срабатывает при обнаружении повторения в событии AfterEdit, срабатывает только в событии MouseDown. Поэтому курсор вернется в том случае если пользователь ушел этого поля кликом мыши, а вот с другими вариантами(клавиатура, пореря курсора) не получается никак реализовать?

VSFlexGrid1_AfterEdit( Row  ,  Col  )

      VSFlexGrid1.Text = strBuffer1  
         VSFlexGrid1.Col =   
             IndexVerify(VSFlexGrid1.Text)  
                
                RSet1.MoveFirst
                RSet1.Move VSFlexGrid1.Row - 
    
                RSet1.Update VSFlexGrid1.Col - , VSFlexGrid1.Text
            
                MsgBox , vbCritical, 
                VSFlexGrid1.TextMatrix(nCell1(), ) = strBuffer1 
                bool1 = True 
                
                VSFlexGrid1. nCell1(),    
                VSFlexGrid1.EditCell  
                bool2 = False 

            RSet1.MoveFirst
            RSet1.Move VSFlexGrid1.Row - 
            
            RSet1.Update VSFlexGrid1.Col - , VSFlexGrid1.Text

  VSFlexGrid1_MouseDown(Button  , Shift  , x  , y  )
     bool1 = True  VSFlexGrid1. nCell1(), nCell1()
    bool1 = False

 IndexVerify(strSource  )  
     Rset2 =  ADODB.Recordset
    
    Rset2.  & strSource _
    , MainConnection, adOpenForwardOnly, adLockPessimistic
    
    IndexVerify = Rset2.EOF  Rset2.BOF 
    Rset2.
     Rset2 = 
 

Решение задачи: «VSFlexGrid: программные переходы по ячейкам.»

textual
                            Листинг программы 
                        

                            VSFlexGrid1.Col = <font color="darkblue"><b>1</b></font> 
VSFlexGrid1.Row = nCell1(<font color="darkblue"><b>0</b></font>)
VSFlexGrid1.EditCell
                        