Access - No me permite seleccionar en Listbox

Hola:
Tengo un listbox en el que he incluido datos de una tabla de una BD access:

Dim Db As Database
Set Db = OpenDatabase(base)
Dim DATOS As DAO.Recordset
Dim qdf As QueryDef
Dim nomquerydef As String
nomquerydef = "cons"

Dim strSQL As String
strSQL = "SELECT campo FROM TABLA"

Set qdf = Db.CreateQueryDef(nomquerydef, strSQL)
Set DATOS = qdf.OpenRecordset

While Not DATOS.EOF
listbox .AddItem (DATOS(0))
DATOS.MoveNext
Wend

El problema es que no me permite seleccionar los elementos posteriormente dentro del listbox, necesito seleccionar un elemento del listbox y extraerlo, pero no se como. No controlo mucho, alguien me puede ayudar? Muchas gracias

Hola

Prueba esta variante del codigo

Private Sub Form_Open(Cancel As Integer)
Me.ListBox.ColumnCount = 1
Me.ListBox.ColumnWidths = "3 cm"
Me.ListBox.BoundColumn = 1
Me.ListBox.RowSourceType = "Table/Query"
Me.ListBox.RowSource = "SELECT CAMPO FROM TABLA"
Me.ListBox.Requery
End Sub

Private Sub ListBox_Click()
Me.TEXTO1 = Me.ListBox.ListIndex
Me.TEXTO2 = Me.ListBox.Column(0)
End Sub

Saludos

Lo he probado y el resultado es el mismo, me lo carga en la lista, pero no se me seleccionan los elementos de la lista.