Private Sub lstMitglieder_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      lstMitglieder.SelectedIndexChanged
        Call detail()
    End Sub
   Sub detail()
        Me.DsDetail.Clear()
        If lstMitglieder.SelectedIndex <> -1 Then
            Me.SqlDataAdapter2.SelectCommand.Parameters(0).Value = _
              Me.lstMitglieder.SelectedItem(0)
            Me.SqlDataAdapter2.Fill(Me.DsDetail)
        End If
    End Sub

  Sub saverecord()
        Me.BindingContext(Me.DsDetail, "Mitglieder").EndCurrentEdit()
        Me.SqlDataAdapter2.Update(Me.DsDetail, "Mitglieder")
        Me.DsDetail.AcceptChanges()
    End Sub

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht