Listbox Items Shown Twice

[Voodeux2014]

Private Sub Form_Load()   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim strSQL As String, strItem As String
   
   DoCmd.GoToRecord acDataForm, "frmAddClassRoster", acNewRec
   
   strSQL = "SELECT ID, FirstName, LastName, SSN FROM tbl1Students"
   Set db = CurrentDb
   Set rs = db.OpenRecordset(strSQL)
   Do Until rs.EOF
      strItem = rs.Fields("ID").Value & ";" _
         & rs.Fields("FirstName").Value _
         & " " _
         & rs.Fields("LastName").Value _
         & " (" _
         & rs.Fields("SSN").Value _
         & ")"
      Me.lstAllStudents.AddItem strItem      ' Row Source Type must be Value List
      rs.MoveNext


   Loop
   
  rs.Close
   Set rs = Nothing
   Set db = Nothing
End Sub

The listbox is displaying the proper information, but it shows all the entries twice. The top of the list shows all items with just First and Last name. IT then repeats the list with the (SSN) behind the name. The second portion is what I would like it to display. How can I have it get rid of the other entries?

[ItsMe]

Perhaps you need to clear the list. There is a function here that might help.
https://msdn.microsoft.com/EN-US/lib.../ff194439.aspx

[Voodeux2014]

That helped lead me in the right direction. I went with the following code instead tho. Added it before the form load added the new information.

Dim i As Integer
For i = 1 To ListBox1.ListCount
'Remove an item from the ListBox.
ListBox1.RemoveItem 0
Next i

[ItsMe]

Glad you were able to find a solution and post the solution here.