pitbull

olha só cara, faz o seguinte Na seção General do form que vai receber o valor você coloca o seguinte dim wCodigo as Long Public Property Get Codigo() As Long Codigo= wCodigo End Property Public Property Let Codigo(ByVal pValor As Long) wCodigo = pValor End Property na hora de fechar o form que efetuou a consulta você passa o valor pro form que chamou assim FormqueChamou.Codigo=rs("cod_usuario")

eu tinha muito esse problema, a melhor solução que eu acho é você migrar seu sistema pra vb6, é muito simples pois o vb6 é 100% compativel com o 5. e tanto faz compilar em win98 como xp, vai funcionar sem problema.

eu testei e funcionou, muito show.