两个问题请教？

真主

1、请问这段代码如何简化？
Private Sub Form_Timer()
    Me.Label1.Caption = Time()
If Me.Label1.Caption = "09:00:00" Then
        DoCmd.DeleteObject acTable, "wesun"
    DoCmd.TransferDatabase acImport, "Microsoft Access", _
    "\\baserver\winsuntelsy$\Log.mdb", acTable, "wesun", _
    "wesun"
ElseIf Me.Label1.Caption = "11:00:00" Then
        DoCmd.DeleteObject acTable, "wesun"
    DoCmd.TransferDatabase acImport, "Microsoft Access", _
    "\\baserver\winsuntelsy$\Log.mdb", acTable, "wesun", _
    "wesun"
ElseIf Me.Label1.Caption = "14:00:00" Then
        DoCmd.DeleteObject acTable, "wesun"
    DoCmd.TransferDatabase acImport, "Microsoft Access", _
    "\\baserver\winsuntelsy$\Log.mdb", acTable, "wesun", _
    "wesun"
ElseIf Me.Label1.Caption = "18:30:00" Then
    DoCmd.DeleteObject acTable, "wesun"
    DoCmd.TransferDatabase acImport, "Microsoft Access", _
    "\\baserver\winsuntelsy$\Log.mdb", acTable, "wesun", _
    "wesun"
    End If
End Sub

2、当数据库中无“WESUN”表时，怎样设定后不执行： DoCmd.DeleteObject acTable, "wesun"（代码怎样写）

hi-wzj

简化语句的帮助
Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。

Dim Number
Number = 8    ' 设置变量初值。
Select Case Number    ' 判断 Number 的值。
Case 1 To 5    ' Number 的值在 1 到 5 之间，包含1 和 5 。
    Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8    ' Number 的值在 6 到 8 之间。
    Debug.Print "Between 6 and 8"
Case 9 到 10    ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else    ' 其他数值。
    Debug.Print "Not between 1 and 10"
End Select

2、简单一点的就是：出错后跳出：
on error .....
3、因为时间的问题，若不会刚好等于09:00:00就不会执行，建议用>=来判断。