El recordset "usuarios.Recordset" ya trae todos los campos si encuentra un usuario, solo debes asignar el departamento a la variable:
Código vb:
Ver originalstrDEPARTAMENTO_ID = Usuarios.Recordset!DEFAULTDEPTID
Esto lo pones antes de llamar al FORM principal ("VisorRPT") :
Código vb:
Ver original'...
'...
'...
SendKeys "{home}+{end}"
ElseIf usuarios.Recordset!mverifypass = txtPass.Text Then
mensaje = MsgBox("¡Bienvenido!", vbInformation, "RptACS")
strDEPARTAMENTO_ID = Usuarios.Recordset!DEFAULTDEPTID
strUsuario = Trim(txtUser.Text)
Unload Me
VisorRPT.Show
Else
mensaje = MsgBox("La clave no es correcta", 0 + 16, "Atencion")
txtPass.SetFocus
SendKeys "{Home}+{End}"
End If