MySelectCommand.CommandText = " Select * from 表1
Where 登记号 = '" & TextBox1.Text & "'"
MySelectCommand.Connection = MyConn
MyDataAdapter.SelectCommand = MySelectCommand
Dim ds as New DataSet
MyDataAdapter.fill(ds)
if ds.Tables(0).Count=0 Then
'做没有记录处理
else
'做有记录处理
end if
推荐看看.net和数据库连接的基础书