Private Sub GridAnsprechpartner_CellClick(ByVal nRow As Long, ByVal nCol As _
  Long, ByVal Button As Integer, ByVal Shift As Integer)
If nCol=8 Then
With GridAnsprechpartner
txtInfo.Text = .Text(.Row 8)
End With
End If
End Sub

Private Sub txtInfo_Change()
With GridAnsprechpartner
.Recordset.Edit
.Recordset.Fields(8)=txtInfo.Text
.Recordset.update
.RowRefresh
End With
End Sub