dim objReader as SqlDataReader
if objReader.read() then
   datagrid1.datasource=objReader
   datagrid.databind()
end if
DataReader就少了一条记录,实际上没有少记录。你可以做试验,只读人一条记录,看运行的情况。