Friend Sub sFillListView(ByVal frm As Form, Optional ByVal wSQL As String = _
                         "Select * From tab_PKVerleih")
    Dim lvw As ListViewItem
 
    frm.Cursor = Cursors.WaitCursor
 
    Try
      sRSDB(wSQL, "Reader")
      'On Error Resume Next
 
      frmEPreisgruppe.lvwKomponenten.Items.Clear()
 
      lvw = frmEPreisgruppe.lvwKomponenten.Items.Add( _
        myDataReader!fGUID_Komponente.ToString)
      lvw.SubItems.Add(myDataReader!fKomponententyp)
      lvw.SubItems.Add(myDataReader!fBeschreibung)
 
      While myDataReader.Read()
        lvw =frmEPreisgruppe.lvwKomponenten.Items.Add( _
          myDataReader!fGUID_Komponente.ToString)
        lvw.SubItems.Add(myDataReader!fKomponententyp)
        lvw.SubItems.Add(myDataReader!fBeschreibung)
      End While
 
      frmEPreisgruppe.cmdVBearbeiten.Enabled = True
      frmEPreisgruppe.cmdVLöschen.Enabled = True
 
      sMainHinweis("Es wurden " & frmEPreisgruppe.lvwKomponenten.Items.Count & _
        " Datensätze gefunden!")
    Catch e As InvalidOperationException
      sMainHinweis("Es wurden 0 Datensätze gefunden!")
      frmEPreisgruppe.cmdVBearbeiten.Enabled = False
      frmEPreisgruppe.cmdVLöschen.Enabled = False
      Exit Try
    End Try
 
    frm.Cursor = Cursors.Default
End Sub

mfg
peacemaker

e-mail: vbarchiv@web.de