方括号本身要用方括号括起来。
Dim s As String = "萧卫发[2010]3号"
s = s.Replce("[","[[]")
s = s.Replce("]","[]]")
Datatables("某个表").Loadfilter = "第一列 Like '" & s & "'"