DataCombo y Acces

[davchi]

Hola a todos, estoy tratando de crear un datacombo con datos desde access
Cuando hago la consulta para un colo campo todo perfecto, pero el problema es que puedo tener mas de 1 campo

Código:

Public Sub CargarObraComboTotalOB(DataCombo1 As DataCombo)
Dim rs As New ADODB.Recordset
    rs.Open sqlobra(), cnn, 1, 1
    With DataCombo1
       Set .RowSource = rs
       .ListField = "nombre"
       .BoundColumn = "id_obra_social"
    End With
End Sub

Public Function sqlobra()
    sqlobra = _
    "SELECT distinct o.id_obra_social, o.nombre " & _
    "FROM  obra_social o, pacientes p " & _
    "WHERE p.id_obra_social1 = o.id_obra_social and " & _
    "p.id_paciente = " & Val(IDPaciente.Text)
End Function

Hasta aqui todo perfecto, pero el problema como dije anteriormente es que en la consulta puedo tener mas de una obra social

id_obra_social1, id_obra_social2, id_obra_social3, id_obra_social4, y que estan esten asociadas a un cliente

como podria hacer para que aparezcan


Muchas Gracias