主题：[求助]分页加载遇到难题

dim cmd as new sqlcommand

dim dt as datatables

cmd.c

 cmd.CommandText = "select Province as '省份',City as '城市',Town as '区县',Countryside as  '乡镇',Country as  '村' f rom {N_RelaNQ} inner join {N_ServiceAddr} on {N_RelaNQ}.AddrId={N_ServiceAddr}.AddrId  where InstiUserId='" & Vars("InstiID") & "'"

 dt = cmd.ExecuteReader()

Tables("InstiWorkList_table1").DataSource =dt

                With DataTables("InstiWorkList_table4")

                    .LoadFilter = "" '清除加载条件

                    .LoadPage = 0 '加载第一页

                    .LoadTop = 5 '每页5行

                    .Load()

MessageBox.show(.TotalPages)

                    Forms("InstiWorkList").Controls("TextBox1").Value = 1 & "/" & .TotalPages

                End With