Campos sumindo

[Ferretto]

Pessoal, estou com uma dúvida:

em várias telas do meu programa acontece a mesma coisa:

se alguém souber como resolver me ajude.

Esta tela e de cadastro de transportadora, depois que eu clico no botao de pesquisar transportadora e seleciono uma transportadora a minha tela some alguns campos, como mostrado abaixo.

eu utilizo este código no botao de pesquisar transportadora para fazer isso:

Private Sub cmdFind_Click()
Dim Escolhido As String
On Error GoTo lblErr

   Escolhido = objTransportadora.Seleciona_Transportadora 'Aqui chama a tela já carregada para selecionar a transportadora

   If Escolhido <> "" Then ' se eu tiver selecionado alguma transportadora ele vai executar o codigo abaixo
        DBDataNovo1.Recordset.Requery ' este *DBDataNovo1.Recordset* é aquela barra de rolagem. o banco de dados e         
' carregado por ele: DBDataNovo1_IniciaDb

        DBDataNovo1.Recordset.Find ConvertSQL("CodTransportadora = " & Escolhido), , , 1
        If DBDataNovo1.Recordset.EOF Then
            If (DBDataNovo1.Recordset.RecordCount > 0) Then
                DBDataNovo1.Recordset.MoveFirst
            End If
        End If
        DBDataNovo1_Reposition ' seta as informacoes nos campos correspondentes
        tabInformacoes.Tab = 0
   End If
GoTo lblEnd

lblErr:
   Data_Error_ADO Err.Number, Err.Description, Err.Source, Cnn.Errors
   Resume lblEnd

lblEnd:

End Sub

[Matheus-vb6]

Em nenhuma parte do seu código está mandando ficar o frame invisivel?? aperte ctrl F e procure por .visible...

Se não for isso desconheço o que seja...

Abraço