table is empty

[mheiy]

what will i do if the table has no entry and i will open it..
here's my code

Private Sub MDIForm_Load()
tbAcademicYear.Open "select * from tbacademicyear", cn, adOpenDynamic, adLockOptimistic
If tbAcademicYear.Fields(1) = Null Then
    Exit Sub
Else
Set tbAcademicYear = Nothing
AY = "select * from tbacademicyear where Status like '" & "Open" & "'"
tbAcademicYear.Open AY, cn, adOpenDynamic, adLockOptimistic
StatusBar1.Panels(10) = tbAcademicYear.Fields(0)
End If
end Sub