Listbox item een andere kleur geven zetten

Private Sub LoadOpdrachtKlanten()
        Try
            dtOpdrachtKlanten.Clear()
            Dim command As New OleDb.OleDbCommand("Select * From Klanten", oCon)
            oCon.Open()
            Using reader As OleDb.OleDbDataReader = command.ExecuteReader((CommandBehavior.CloseConnection))
                If reader.HasRows = True Then
                    dtOpdrachtKlanten.Load(reader)
                    lstKlanten_Opdrachten.DataSource = dtOpdrachtKlanten
                    lstKlanten_Opdrachten.DisplayMember = "Bedrijfsnaam"
                    If reader("Zwartelijst") = True Then
                        
                    End If
                End If

            End Using
            oCon.Close()
        Catch ex As Exception
            If oCon.State = ConnectionState.Open Then oCon.Close()
        End Try
    End Sub

Private Sub LoadOpdrachtKlanten()
        Try
            dtOpdrachtKlanten.Clear()
            Dim command As New OleDb.OleDbCommand("Select * From Klanten", oCon)
            oCon.Open()
            Using reader As OleDb.OleDbDataReader = command.ExecuteReader((CommandBehavior.CloseConnection))
                If reader.HasRows = True Then
                    dtOpdrachtKlanten.Load(reader)
                    lstKlanten_Opdrachten.DataSource = dtOpdrachtKlanten
                    lstKlanten_Opdrachten.DisplayMember = "Bedrijfsnaam"
                    If reader("Zwartelijst") = True Then
 
                    End If
                End If
 
            End Using
            oCon.Close()
        Catch ex As Exception
            If oCon.State = ConnectionState.Open Then oCon.Close()
        End Try
    End Sub

Dim color As System.Drawing.Color = Drawing.Color.Silver
ListBox1.BackColor = color

Dim color As System.Drawing.Color = Drawing.Color.Silver
ListBox1.BackColor = color