Siempre que vallas a utilizar un SELECT deves corroborar si esta abierto si esta abierto lo cierras para que puedas abrirlo nuevamente algo asi:
Código:
'Solo Agregamos esta linea si esta abierto lo cerramos. para despues abrilo con el OPEN
If .State = AdStateOpen Then .Close
.Source "select NOMBRE_U from USUARIOS where LOGIN_U =" & Trim(txtUserName.Text) & ""
nombreusuario = .State!nombre_u
frmprincipal.Caption = "InvenPlus Sistema de Inventario - Usuario (" & nombreusuario & ")"
frmprincipal.Show
Me.Hide
ya con esto te deve funcionar
Espero te sirva.
Saludos