Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "Db1DataSet.adm". Sie 
        ' können sie bei Bedarf verschieben oder entfernen.
        Me.AdmTableAdapter.Fill(Me.Db1DataSet.adm)
 
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex <> -1 Then
            Dim a As String = ListBox1.Text
            ListBox2.Items.Add(a)
            CType(AdmBindingSource.Current, DataRowView).Delete()
        End If
    End Sub
 
    Private Sub AdmBindingSource_CurrentChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles AdmBindingSource.CurrentChanged
 
    End Sub
End Class

CType(AdmBindingSource.Current, DataRowView).Delete()

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