你这种就要substring处理了。如
Dim dr As DataRow = DataTables("帮助文档").Find("substring(ID,1,3) = '01.' and len(ID) = 5")