[RESOLVED] Runtime error 91: object variable or with block variable not set

[torpydoo]

please i need help once again. what seems to be the problem with this? it generated an error saying "object variable or with block variable not set". this is the simplified code:

Private Sub Form_Load()

    Me.KeyPreview = True
    Call DbfOpen
    Call DispData

End Sub

Private Sub DbfOpen()

    Data1.DatabaseName = (App.Path)
    Data1.RecordSource = "cust.dbf"

End Sub

Private Sub DispData()

    Label1.Caption = Data1.Recordset.Fields("ACCOUNT") 'the error points to this line

End Sub