Visual Basic - como rellenar combo

Hola! Disculpen las molestias….soy nueva en esto y me ha surgido la siguiente duda...
Resulta que quiero rellenar un combo, pero no lo consigo
El asunto es que en mi caso , dependiendo que dolencia seleccione me debe cargar el combo con sus correspondientes tratamientos. Para ello tengo una tabla en la bd access, que es de tratamientos y otra de las relaciones de los tratamientos con las dolencias
Para ello hago las siguientes consultas

SQL = "SELECT cod_trat FROM SeRelaciona WHERE Cod_dol = " & ident
Set User = WDB.Execute(SQL)
identi = User!Cod_trat
SQL2 = "SELECT Distinct Nombre FROM Articulos WHERE num = " & identi
Set User2 = WDB.Execute(SQL2)

frmNuevoInforme.txtTratamiento.Clear

Do While Not User2.EOF
If Not IsNull(User2!Nombre) And User2!Nombre <> "" Then
frmNuevoInforme.txtTratamiento.AddItem User2!Nombre
End If

User2.MoveNext
User.movenext
Loop
Gracias de antemano

Creo que no te entiendo muy bien, dices que quieres rellenar un "combo" pero en el codigo estas utilizando un textbox para mostrar la informacion...

de todas formas te explico como llenar un combobox

ComboBox.AddItem User2!Nombre

lo mismo que esta utilizando tu pero con un objeto combobox..... espero haberte ayudado en algo.

Podrías hacer una única consulta SELECT con la claúsula INNER JOIN

código ---------
sql = "SELECT SeRelaciona.cod_trat, Articulos.Nombre, Articulos.num " & _
"FROM SeRelaciona INNER JOIN Articulos ON SeRelaciona.cod_trat = " & _
"Articulos.Num WHERE SeRelaciona.cod_dol = " & ident

Set User = WDB.Execute(sql)
frmNuevoInforme.txtTratamiento.Clear
Do While Not User.EOF
frmNuevoInforme.txtTratamiento.AddItem User!Nombre
User.movenext
Loop
Fin código -------

txtTratamiento es el ComboBox que está en el Form frmNuevoInforme

Ten en cuenta que la clausula DISTINCT omite los registros duplicados del campo nombre en la tabla Articulos.

Por otra parte, en el bucle Do..Loop estás moviendo el puntero del recordset "User" que no hacía nada y podría dar errores si tuviera menos registros que "User2"

Muchas gracias por la respuesta