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