Dim spalte As String = dgv.Columns(e.ColumnIndex).Name
Dim sValue As String = CType(bsData.Current, DataRowView).Item(spalte).ToString
                    Dim iMaxLength As Integer = CType(bsData.DataSource, _
                      DataTable).Columns(spalte).MaxLength
                    If sValue.Length > iMaxLength Then
                        MsgBox("In dieser Spalte können maximal " & iMaxLength _
                          & " Zeichen eingegeben werden!", _
                          MsgBoxStyle.Exclamation, "Ausführung nicht möglich")
                        Exit Sub
                    End If