Run Time Error '94' Invalid use of null

hi again,

I am receiving the error message Run Time Error '94' Invalid use of null when running my program.

here is the code where the error is being caused:

Private Sub UserForm_Initialize()
    Dim stSheetName As String
    Const DATE_RANGE As String = "G10:G100"
    Const TITLE_RANGE As String = "h10:h100"
    Const TIME_RANGE As String = "i10:i100"
    stSheetName = Worksheets("Database").Name
    Set Mydata = Worksheets("Database").Range("A1").CurrentRegion   'database
    UserIDTextBox.SetFocus
    lbldate.Caption = Range(DATE_RANGE).Text
    lbltitle.Caption = Range(TITLE_RANGE).Text
    lbltime.Caption = Range(TIME_RANGE).Text

        
End Sub

thanks,

stoey