新手开发，怎么查询文本框中的日期是有效的

十分感谢

If Frame0 = 1 Then
    Text01.SetFocus
    If "#Text01.text#" In (Select 比赛日期 From 项目日程安排表 where 比赛场地="一号场地") Then
        If Frame1=1 Then Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="一号场地" , 比赛日期="#Text02#",比赛时间=Between 8:00AM and 12:00AM) INTO Text02
        Else If Frame1=2 Then Text02=(Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="一号场地" , 比赛日期="#Text02#",比赛时间=Between 13:00 and 18:00)
        Else If Frame1=3 Then Text02=(Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="一号场地" , 比赛日期="#Text02#",比赛时间=Between 18:00 and 22:00)
        End If
       
     Else: MsgBox "这天没有比赛，请选择正确日期！"
    End If
  Else  If Frame0 = 2 Then
   If Text01.SetFocus
    If "#Text01#" In (Select 比赛日期 From 项目日程安排表 where 比赛场地="二号场地")Then
        If Frame1=1 Then Text02.Text=(Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="二号场地" , 比赛日期="#Text02#",比赛时间=Between 8:00AM and 12:00AM)
        Else If Frame1=2 Then Text02.Text=(Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="二号场地" , 比赛日期="#Text02#",比赛时间=Between 13:00 and 18:00)
        Else If Frame1=3 Then Text02.Text=(Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="二号场地" , 比赛日期="#Text02#",比赛时间=Between 18:00 and 22:00)
        End If
       
     Else: MsgBox "这天没有比赛，请选择正确日期！"
    End If
   
    Else  If Frame0 = 3 Then
   If Text01.SetFocus
    If "#Text01#" In (Select 比赛日期 From 项目日程安排表 where 比赛场地="三号场地")Then
        If Frame1=1 Then Text02.Text=(Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="三号场地" , 比赛日期="#Text02#",比赛时间=Between 8:00AM and 12:00AM)
        Else If Frame1=2 Then Text02.Text=(Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="三号场地" , 比赛日期="#Text02#",比赛时间=Between 13:00 and 18:00)
        Else If Frame1=3 Then Text02.Text=(Select ID,项目名称,总人数 From 项目日程安排表 Where (比赛场地="三号场地" , 比赛日期="#Text02#",比赛时间=Between 18:00 and 22:00)
        End If
       
     Else: MsgBox "这天没有比赛，请选择正确日期！"
    End If
   End If

老报编译出错，就是想把查询结果输出到左下的Text02文本框，不知道该怎么写，大家帮帮忙吧