Dim intCount As Integer
Dim rst As DAO.Recordset
Dim strTableName As String
strTableName = Me.YourListBoxName ' (if name is bound column, but use Me.YourListBoxName.Column(1) if the name is the second column and not the bound column)
Set rst = CurrentDb.OpenRecordset(strTableName, dbOpenDynaset)
Do Until intCount = Me.YourFormsTextBoxNameForRecordNumberHere
intCount = intCount + 1
rst.MoveNext
Loop
Me.YourTextBox1 = rst(0) 'this puts the values retreived from the table into a text box on your form - zero being the first column of the table, 1 being the next, etc.)
Me.YourTextBox2 = rst(1)
'...continue with however many columns you want - rst(0) will get you the first column, so you may want to put in an integer and assign it based on a text box that is on your form, for column as well.
rst.Close
Set rst = Nothing