可以改成
Dim bm As String = vars("_CrsTb")
或者 DataTables(cstr(vars("_CrsTb")))
DataTables() 里面,必须使用字符串变量,当使用vars的时候,默认是object类型,所以报错。