multiselect list box keeps returning to none

hi phil
thanks for quick reply
the list box is being populated with an onloadevent of the form calls this
Private Sub Form_Load()

Call LoadListBox(Me.lstFields, "select fieldname from tblTempfield", "fieldname", True)
End Sub

Like i say the box is being populated fine - just refuses to multiselect ...
LoadListBox is in a module ....

Public Sub LoadListBox(ByRef oComboBox As ListBox, _
ByVal sSql As String, _
ByVal sField As String, _
Optional ByVal bClear As Boolean = True, _
Optional ByVal sItemDataField As String = "")

'Procedure: LoadComboBox
'Purpose : Load data into a ComboBox control.

'Arguments:
'oComboBox--The ComboBox control to load.
'sSQL--SQL SELECT statement that retrieves the required data.
'sField--The name of the field to add to the ComboBox control.
'bClear Optional--Clear the ComboBox before loading it.
'sItemDataField - Optional--The name of the field to store in ItemData.

'On Error GoTo errHandler

Dim rsRecords As ADODB.Recordset
Set rsRecords = New ADODB.Recordset
Dim g_CADOConnection As ADODB.Connection
Set g_CADOConnection = New ADODB.Connection

g_CADOConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\a2a.mdb"


If bClear Then
oComboBox.Clear
End If

'Load recordset.
rsRecords.Open sSql, g_CADOConnection

'If g_CADOConnection.OpenRecordsetEx(rsRecords, sSql, True) Then
Do While Not rsRecords.EOF

'Add values to combo box.
oComboBox.AddItem rsRecords.Fields(sField).Value & ""

'Add itemdata value if one was specified.
If Len(sItemDataField) > 0 Then
oComboBox.ItemData(oComboBox.NewIndex) = _
rsRecords.Fields(sItemDataField).Value
End If

rsRecords.MoveNext
Loop
rsRecords.Close
Set rsRecords = Nothing

' End If
Exit Sub

hi phil - just to let you know - dont know what was wrong - added the items manually looping through a recordset instead of using a data source control - and multi select works now - (?) thanks again