Dim s1 As String
s1=e.Form.Controls("TextBox5").Value

Dim t As Table = Tables("紙品基本資料_Table1")
With Tables("紙品基本資料")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        Forms("紙品基本資料").Controls("TextBox1").Value = Nothing
        Forms("紙品基本資料").Controls("DropBox1").Value= Nothing
        Forms("紙品基本資料").Controls("ComboBox1").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox2").Value =Nothing
        Forms("紙品基本資料").Controls("ComboBox2").Value =Nothing
        Forms("紙品基本資料").Controls("TextBox3").Value =Nothing
        Forms("紙品基本資料").Controls("ComboBox3").Value =Nothing
        Forms("紙品基本資料").Controls("TextBox4").Value =Nothing
        Forms("紙品基本資料").Controls("ComboBox4").Value =Nothing
        Forms("紙品基本資料").Controls("Label16").Text=Nothing
        Forms("紙品基本資料").Controls("ComboBox5").Value=Nothing
        Forms("紙品基本資料").Controls("DropBox2").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox6").Value=Nothing
        Forms("紙品基本資料").Controls("DropBox3").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox7").Value=Nothing
        Forms("紙品基本資料").Controls("DropBox4").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox8").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox9").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox10").Value=Nothing
        Forms("紙品基本資料").Controls("ComboBox6").Value=Nothing
        Forms("紙品基本資料").Controls("ComboBox7").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox01").Value=Nothing
        Forms("紙品基本資料").Controls("ComboBox8").Value=Nothing
        Forms("紙品基本資料").Controls("ComboBox9").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox02").Value=Nothing
        Forms("紙品基本資料").Controls("ComboBox10").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox03").Value=Nothing
        Forms("紙品基本資料").Controls("TextBox04").Value=Nothing
        Forms("紙品基本資料").Controls("Label9").Text=Nothing
        t.Filter = "[紙品代碼] Like \'%"& s1 &"%\'"
    End If
End With

這樣寫沒反應不知道該怎麼寫?