Problemas No Form_load

[Guest Igor]

Olá, tenho uma função "monta", e quando a fiz coloquei-a no form_activate, mas depois mudei para o form_load. Acontece qua agora dá um erro na função. abaixo o código da função e indicado onde dá o erro.

Public Function monta()

With bloco 'bloco é o meu form

Dim i As Integer

i = 0

->.Data1.Recordset.MoveFirst

While ((Not .Data1.Recordset.EOF) And i < 10)

.lblNota(i).Caption = .Data1.Recordset.Fields("num") & " - " & .Data1.Recordset.Fields("titulo") & " -- " & .Data1.Recordset.Fields("texto")

.Data1.Recordset.MoveNext

i = i + 1

Wend

End With

End Function

obrigado

Igor

[Graymalkin]

Sim, acredito que ele vai dar erro. Isso porque ao entrar no evento Load talvez ele ainda não tenha inicializado o objeto Data1. Mesmo assim, qual a mensagem de erro?

Graymalkin