dr11 = DataTables("systemuser").Find("username = username")
改成
dr11 = DataTables("systemuser").Find("username = '" & username & "'")