With Grid1
   .AddNew "pos_artnr"  
End With
 
 
Private Sub Grid1_StartEditMode(ByVal nRow As Long, _
  ByVal nCol As Long, sText As String, bCancel As Boolean)
 
If nCol = 8 Then
    ' Kein direktes Editieren im Grid zulassen!
    bCancel = True
    MsgBox "Das Editieren der Artikel Nr. ist nicht zulässig!"
  End If
end sub