aufträgestr = "select auftragsnummer,id from dispo"

    If aufträgere.State = adStateOpen Then '*2'
       aufträgere.Close
    End If '*2'
    With aufträgere
           .ActiveConnection = speddb
           .Filter = ""
           .Source = aufträgestr
           .LockType = adLockOptimistic
           .CursorLocation = adUseClient
           .Open
    End With

aufträgestr = "Select * from dispo where id =" & ListView1.ListItems( _
  ListView1.SelectedItem.Index).SubItems(1) & ""
idnummer = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(1)