Dim con As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim reader As OleDb.OleDbDataReader
 
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
          "Source=" & mod_setting.DB_Pfad
        cmd.Connection = con
        cmd.CommandText = "select NAME1,LFNTNR from PPS_LIEFERANT Order BY" & _
          "NAME1"
        Try
            con.Open()
            reader = cmd.ExecuteReader()
            Do While reader.Read()
                BackgroundWorker_Lieferant.ReportProgress(1, (reader("NAME1")))
            Loop
            reader.Close()
            con.Close()
 
            'If frm_eingabe.ComboBox1.Items.Count = 0 Then
            '    MsgBox("keine Lieferanten gefunden", MsgBoxStyle.Exclamation)
            'End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

BackgroundWorker_Lieferant.ReportProgress(1, (reader("NAME1")))