Visual Basic - Evitar datos duplicados en una consulta

Hola ojala y alguien pueda ayudarme, tengo dos tablas de las cuales tengo que mostrar una consulta a partir de cierta información de ella, el problema es que me esta duplicando la información. el filtro para mi consulta es

Data1.RecordSource = "SELECT distinct rpaciente.idreg, nombre, apep, apem, sexo, fechaing, edad, semcap, hospital, peso From principal, rpaciente " & _
"where rpaciente.idreg = principal.idreg"

Data1.Refresh

Al realizar esto se obtienen el doble de los datos, que puedo hacer

Por que no pruebas con el inner join poniendo asi tu consulta:

Data1.RecordSource = \"SELECT distinct rpaciente.idreg, nombre, apep, apem, sexo, fechaing, edad, semcap, hospital, peso From principal RIGHT OUTER JOIN rpaciente on rpaciente.idreg = principal.idreg\"

Espero te funcione

Por que no pruebas con el join poniendo asi tu consulta:

Data1.RecordSource = "SELECT distinct rpaciente.idreg, nombre, apep, apem, sexo, fechaing, edad, semcap, hospital, peso From principal RIGHT OUTER JOIN rpaciente on rpaciente.idreg = principal.idreg\"

Espero te funcione