Question : Insert from listbox changes text to number

I have 2 listboxes.  One has a listing of 4 digit numbers (text - they have leading zeros) from a table.  The other list box shows the value I chose from the first text box.  It queries a table where the data is stored as text.  When I run my procedure the data ends up in the second list box without the leading zero(s).  ie 0875 becomes 875.  The data shows properly in the first listbox.

Here is the code:
Dim strSQL As String
    strSQL = "INSERT INTO tbl_lstSelectedChapter(SelectedChapter) VALUES (" & Me.lstAllChapters & ")"
    CurrentDb.Execute strSQL, dbFailOnError

Answer : Insert from listbox changes text to number

Try this:


strSQL = "INSERT INTO tbl_lstSelectedChapter(SelectedChapter) VALUES (" & Format(Me.lstAllChapters, "0000") & ")"