tengo problemas con el comando select

[lokoman]

Hola!!
Por lo que veo el .SOURCE es del mismo recordset... tienes que cerrarlo si le vas a pasar otro query....

Código vb:

...
...
...
       Else
            If !clave_u = Trim(txtpassword.Text) Then
                .CLOSE 'CERRAR EL RESORDSET
 
                .Source = "select NOMBRE_U from USUARIOS where LOGIN_U =" & Trim(txtUserName.Text) & ""
 
                'ABRIR EL RESORDSET CON EL NUEVO QUERY
                .OPEN , CONEXION, adOpenDynamic, adLockBatchOptimistic
 
                nombreusuario = !nombre_u
                frmprincipal.Caption = "InvenPlus Sistema de Inventario - Usuario (" & nombreusuario & ")"
                frmprincipal.Show
                Me.Hide
...
...
...