Hola, el problema es que estás agrupando campos de diferentes tablas que tienen el mismo nombre y el recordset no sabe cual de ellos quieres mostrar. Para solucionarlo, tienes que anteponer al nombre del campo, el nombre de la tabla.
En un principio, la consulta estaría bien así:
"SELECT tabla_direccion.id_departamento, " & _
"tabla_direccion.nom_departamento, " & _
"tabla_departamento.id_departamento, " & _
"tabla_departamento.nom_departamento " & _
"FROM tabla_departamento, tabla_direccion " & _
"Where tabla_departamento.dpto_id_departamento=tabla_direccion.id_departamento"
y para mostrar los datos (no es necesario convertirlos a cadena):
Código vb:
Ver originalTextCodigo.Text = Record("tabla_departamento.id_departamento")
TextNombre.Text = Record("tabla_departamento.nom_departamento")
'TextDireccion.Text = Record("tabla_departamento.dir_departamento")
'TextDescripcion.Text = Record("tabla_departamento.descr_departamento")
TextIdDireccionGral.Text = Record("tabla_direccion.id_departamento")
TextDireccionGral.Text = Record("tabla_direccion.nom_departamento")
Nota: Las líneas comentadas es porque los campos no aparecen en la consulta.
De todas formas, sería mejor mostrar los datos en un control de tipo Grid, por si el recordset arrojara mas de un registro.
Saludos