dbdata.CommandText = "SELECT * FROM Kunden WHERE User in ('" & userlist & "')"
        reader = dbdata.ExecuteReader
 
        If reader.HasRows = True Then
            While reader.Read
                kdnr = reader.Item("KundenNr")
                If reader.Item("Vorname") Is System.DBNull.Value = False Then _
                  vn = reader.Item("Vorname") Else vn = ""
                If reader.Item("Nachname") Is System.DBNull.Value = False Then _
                nn = reader.Item("Nachname") Else nn = ""
                If reader.Item("PLZ") Is System.DBNull.Value = False Then plz = _
                reader.Item("PLZ") Else plz = ""
                If reader.Item("Ort") Is System.DBNull.Value = False Then ort = _
                reader.Item("Ort") Else ort = ""
                If reader.Item("Telprivat") Is System.DBNull.Value = False Then _
                tel = reader.Item("Telprivat") Else tel = ""
                If reader.Item("Fax") Is System.DBNull.Value = False Then fax = _
                reader.Item("Fax") Else fax = ""
                If reader.Item("Email") Is System.DBNull.Value = False Then _
                mail = reader.Item("Email") Else mail = ""
                If reader.Item("Handy") Is System.DBNull.Value = False Then _
                handy = reader.Item("Handy") Else handy = ""
                'If reader.Item("Mitarbeiter") Is System.DBNull.Value = False 
                ' Then ma = reader.Item("Mitarbeiter") Else ma = ""
                If reader.Item("Kategorie") Is System.DBNull.Value = False Then _
                  kat = reader.Item("Kategorie") Else kat = ""
                If reader.Item("Strasse") Is System.DBNull.Value = False Then _
                str = reader.Item("Strasse") Else str = ""
 
                Dim Row As New DataGridViewRow
                Row.CreateCells(Grid)
 
                Row.DefaultCellStyle.BackColor = Color.WhiteSmoke
                Row.DefaultCellStyle.ForeColor = Color.Black
 
                If InStr(kat, "A-") Then
                    Row.DefaultCellStyle.BackColor = Color.Orange
                    Row.DefaultCellStyle.ForeColor = Color.WhiteSmoke
                End If
 
                Dim idx As Integer = Grid.Rows.Add(Row)
                Grid.Rows(idx).Cells("Column1").Value = nn
                Grid.Rows(idx).Cells("Column2").Value = vn
                Grid.Rows(idx).Cells("Column3").Value = plz & " " & ort
                Grid.Rows(idx).Cells("Column4").Value = str
                Grid.Rows(idx).Cells("Column5").Value = tel
                Grid.Rows(idx).Cells("Column6").Value = handy
                Grid.Rows(idx).Cells("Column7").Value = mail
                Grid.Rows(idx).Cells("Column8").Value = fax
                Grid.Rows(idx).Cells("Column9").Value = kdnr
            End While
        End If
        reader.Close()