Hola,
no tiene ningún sentido llamar a esas dos funciones en este contexto.
¿Y qué haces con la consulta SQL? no se le aplica a ningún recordset.
¿Porqué un ComboBox para mostrar el diagnóstico? si solamente cargará uno, a no ser que recorras el recordset de principio a fin.
Bueno, lo que yo haría sería mostrar los datos de la tabla "pacientediagnostico" en un control DataGrid y en los TextBox los datos del paciente (id, nombre, ....) p.e.
En el evento Click de los botones y antes de llamar al procedimiento DatosDiagnostico:
...
End Select
Text1(0).Text = RecBD!id
Text1(1).Text = RecBD!Nombre
....
Call DatosDiagnostico
End Sub
y el procedimiento DatosDiagnostico lo dejaría así:
Código:
Private Sub DatosDiagnostico()
Dim sql As String
sql = "SELECT * FROM pacientediagnostico WHERE IdPaciente = " & Text1(0)
Set RECBDD = New ADODB.Recordset
RECBDD.Open sql, BD, adOpenStatic, adLockOptimistic
Set GridDiagnostico.DataSource = RECBDD
End Sub
Donde:
IdPaciente es un campo de la tabla pacientediagnostico que apunta al campo id de la tabla pacientes.
GridDiagnostico es un control DataGrid donde se mostrarán todos los datos de la tabla pacientesdiagnostico que coincidan con el paciente.
