public d as Integer

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
 
        DsMaster1.Tabelle.Rows(d).Delete()
        daDauerNrMiab.Update(DsMaster1, "Tabelle")
 
    End Sub

    Private Sub lb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles lb.SelectedIndexChanged
        d = listbox1.SelectedIndex
    End Sub