lijst met namen in listbox?

[digita]

Hallo,

ik ben bezig met een programma dat alle namen uit een database moet halen en deze dan in een listbox moet laden volgens het principe van "achternaam, voorletters"

Ik heb daartoe de volgende code geschreven:

Private Sub ListLoad()

        Dim oCmd As OleDbCommand
        Dim ODR As OleDbDataReader
        Dim strSQL As String
        Dim oItem As classListLeden


        strSQL = "SELECT Achternaam, Voorletters FROM Gegevens"

        Try
            oCmd = New OleDbCommand
            With oCmd
                .Connection = ktcConnection
                .Connection.Open()
                .CommandText = strSQL
                ODR = .ExecuteReader()
            End With

            listLeden.Items.Clear()
            Do While ODR.Read()
                With ODR
                    oItem.ID = .Item("Voorletters")
                    oItem.Value = _
                 .Item("Achternaam").ToString()

                End With

                listLeden.Items.Add(oItem)

            Loop
            If listLeden.Items.Count > 0 Then
                listLeden.SetSelected(0, True)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)

        End Try

    End Sub

En de class "classListLeden"

Public Class classListLeden
    Private mstrValue As String
    Private mintID As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal strValue As String, ByVal intID As String)
        mstrValue = strValue
        mintID = intID

    End Sub

    Property Value() As String
        Get
            Return mstrValue
        End Get
        Set(ByVal Value As String)
            mstrValue = Value
        End Set
    End Property

    Property ID() As String
        Get
            Return mintID
        End Get
        Set(ByVal Value As String)
            mintID = Value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return mstrValue
    End Function
End Class

Maar als ik dit uitvoer komt het met het bericht "De objectverwijzing is niet op een exemplaar van een object ingesteld."

Heeft iemand een idee wat hier mee wordt bedoelt, en hoe ik het kan verhelpen?

Bij Voorbaat Dank