Access + Visual Basic

Hola a todos,
tengo hecha una base de datos en access y ahora quiero implementar 1
solo formulario con una ficha con tres pestañas

En una pestaña tengo los datos principales, en la otra fáramacos de un
sujeto, y el la tercera observaciones

He logrado poner los datos en la primera pestaña i unos botones para
desplazarser por los identificadores y que me vayan saliendo distintos
datos de distintas personas.

Problema:
Cómo hago para que en la pestaña segunda me salgan los fármacos?

A mi modo de entender, y tenidendo conocimientos de php, tendría que
hacer una consulta a la bd (que supuestamente ya hago bién) y hacer un
while para mostrar todos los fármacos, no?

Pero dónde lo pongo? He probado immediatamente después de la consulta de
la primera pestaña pero no hay forma

Tengo una función llamada carregarbd dónde:

Dim Conn As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim AuxStr As String 'select datos generales
Dim Resposta As Boolean

On Error GoTo Err1
AuxStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security
Info=False;"
AuxStr = AuxStr & "Data Source = " & PATH_BBDD

Conn.ConnectionString = AuxStr
Conn.Open

Cmd.CommandType = adCmdText
Cmd.ActiveConnection = Conn


AuxStr = "SELECT tjugadors.id_jugador, tjugadors.nom,
tjugadors.cognom1, tjugadors.cognom2, tjugadors.telf, tjugadors.mobil,
tjugadors.correu, tjugadors.data_n, tjugadors.fumador,
tjugadors.alcohol, tjugadors.diabetis, tjugadors.intol,
tjugadors.restre, tjugadors.hta, tjugadors.celiac FROM tjugadors WHERE
tjugadors.id_jugador = " & CStr(IdJugador)
Rs.Open AuxStr, Conn, adOpenKeyset, adLockOptimistic 'retorna registres

If Rs.RecordCount > 0 Then
Rs.MoveFirst
FrmInici.TxtIdJugador.Text = Rs.Fields(0).Value
FrmInici.TxtNomJugador.Text = Rs.Fields(1).Value
FrmInici.TxtCognom1.Text = Rs.Fields(2).Value
FrmInici.TxtCognom2.Text = Rs.Fields(3).Value
FrmInici.TxtTelf.Text = Rs.Fields(4).Value
FrmInici.TxtMobil.Text = Rs.Fields(5).Value
FrmInici.TxtCorreu.Text = Rs.Fields(6).Value
FrmInici.TxtDataN.Text = Rs.Fields(7).Value
End If
Resposta = True


Gracias y saludos