With Grid1
  ...
  Set .Recordset = ...
 
  .Columns(2).LockEdit = True
  ...
End With

Private Sub Grid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, bCancel As Boolean)
  With Grid1
    If .Columns(nCol).LockEdit Then bCancel = True
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de