Debería ser así:
Código vb:
Ver originalTxt1.Text = CStr(Record.Fields("id_departamento").Value)
Txt2.Text = CStr(Record.Fields("nom_departamento").Value)
Txt3.Text = CStr(Record.Fields("dir_departamento").Value)
Txt4.Text = CStr(Record.Fields("descr_departamento").Value)
Txt5.Text = CStr(Record.Fields("nom_departamento").Value)