alberto já estou fazendo uns teste no que você pediu logo posto o resultado

 

Mano fiz a adaptação para você editar o flexgrid veja o código

 

primeiro altere o esta função no Keypress do grid

 

Private Sub Grid_KeyPress(KeyAscii As Integer)
On Error Resume Next
With Grid
If KeyAscii = 13 Or KeyAscii = 9 Then
.Col = .Col + 1
KeyAscii = 0
ElseIf KeyAscii = 8 Then
.Text = Left(.Text, Len(.Text) - 1)
KeyAscii = 0
End If
'Se quiser colocar condições tipo númrico ou não
'If .Col > 0 And Not IsNumeric(Chr(KeyAscii)) Then
'.Text = .Text & Chr(KeyAscii)
'End If
End With

Select Case KeyAscii
Case vbKeyReturn, vbKeyTab
'move para a proxima celula.

With Grid

  If .Col + 1 <= .Cols - 1 Then
     .Col = .Col + 1
  Else
     If .Row + 1 <= .Rows - 1 Then
         .Row = .Row + 1
         .Col = 0
     Else
         .Row = 1
         .Col = 0
     End If
  End If
End With

Case vbKeyBack

   With Grid
   'remove o ultimo caractere
      If Len(.Text) Then
         .Text = Left(.Text, Len(.Text) - 1)
      End If
   End With

Case Is < 32

Case Else
    With Grid
       .Text = .Text & Chr(KeyAscii)
    End With
End Select

End Sub

 

' agora acrescente isso

 

Private Sub Grid_Click()
With Grid
 .CellBackColor = &HFFFFC0
End With
End Sub

 

 

Private Sub Grid_LeaveCell()
With Grid
 .CellBackColor = vbWhite
End With
End Sub

 

pronto até aqui nos conseguimos editar o grid, o que está faltando salvar estes dados no bd, é isso.