sql语句的查询，vb问题

我用sql语句查询一个textbox中的输入值，找到则datagridview显示，但没有的话如何接收返回值-1？我想接收这个返回值存取后用if条件语句做msgbox，请问如何接收，最好有代码，这样看得懂，查询语句如下
Dim sqlstr1= "select * from 暂住人员信息表 where 身份证号码='" & SelectPop.TextBox1.Text & "'"
暂住人员信息表TableAdapter.Adapter.SelectCommand.CommandText = sqlstr2
暂住人员信息表TableAdapter.Fill(PeopleDataSet.暂住人员信息表)

if (PeopleDataSet.暂住人员信息表.Rows.Count() = 0) return -1 else 显示

if (PeopleDataSet.暂住人员信息表.Rows.Count() = 0) return -1 else 显示

if (PeopleDataSet.暂住人员信息表.Rows.Count() = 0) then return -1 else 显示