Private Sub TblKundeDataGridView_RowHeaderMouseDoubleClick(ByVal sender As _
      System.Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles _
      TblKundeDataGridView.RowHeaderMouseDoubleClick
 
        If Me.TblKundeDataGridView.SelectedRows.Count > 0 Then
            KundeID = Me.LabSQLVorerfassTW.tblKunde _
            (TblKundeBindingSource.Position).KundeID
            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
 
    End Sub