Public Shared Function DeleteRow(ByVal frm_frmVorlage As frmVorlage, ByVal _
      ds_DataSetObjekt As DataSet, ByVal tbl_CurrentTabelle As String)
        Try
            If (frm_frmVorlage.BindingContext(ds_DataSetObjekt, _
              tbl_CurrentTabelle).Count > 0) Then
                frm_frmVorlage.BindingContext(ds_DataSetObjekt, _
                tbl_CurrentTabelle).RemoveAt(frm_frmVorlage.BindingContext( _
                ds_DataSetObjekt, tbl_CurrentTabelle).Position)
                DataSet_PositionChanged(frm_frmVorlage, ds_DataSetObjekt, _
                tbl_CurrentTabelle)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)