Trouble With If Command

 Ok, what I am tryin to do is quite simple i do believe.  Basically I have an aspx page with a textbox, a button and a datagrid linked to my sql db.  What I am wanting is for a user to enter in their Social Security Number in the text box and click the button.  If the SSN matches a record in the DB then it binds to the datagrid and shows it, IF no match is found then it displays a link to click on to continue onto the next page.  This is to stop duplicate entries.  I can get one to work by itself but not both of them at the same time.  Here is my code.
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script language="VB" runat="server">

    Sub btnSearch_OnClick(sender as Object, e as EventArgs)
        Dim objConnection As SqlConnection
        Dim objCommand    As SqlCommand
        Dim objAdapter    As SqlDataAdapter
        Dim objDataSet    As DataSet
        Dim strSearch     As String
        Dim strSQLQuery As String
       

        ' Get Search
        strSearch = txtSearch.Text
       
        ' If there's nothing to search for then don't search
        ' o/w build our SQL Query and execute it.
        If Len(Trim(strSearch)) > 0 Then                                                      OK, Here is my first IF, this works.
            ' Set up our connection.
            objConnection = New SqlConnection("Data Source=BRADBLACKBUR-PCMSSMLBIZ;" _
    & "Initial Catalog=Victorypoint;Integrated Security=True;")

           
            ' Set up our SQL query text.
            strSQLQuery = "SELECT FirstName, LastName, SSN " _
    & "FROM Applicants " _
    & "WHERE SSN LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
    & "ORDER BY SSN;"

            ' Create new command object passing it our SQL query
            ' and telling it which connection to use.
            objCommand = New SqlCommand(strSQLQuery, objConnection)

            ' Get a DataSet to bind the DataGrid to
            objAdapter = New SqlDataAdapter(objCommand)
            objDataSet = New DataSet()
            objAdapter.Fill(objDataSet)
           
           
            If objDataSet.Tables.Count < 1 Then                     Right here is where I am having the problem, I need to count the Rows not the Tables, but I dont know what code i should use here.
                Button1.Visible = True
            Else
                ' DataBind DG to DS
                dgSearch.DataSource = objDataSet
                dgSearch.DataBind()

                objConnection.Close()
           
            End If
        End If
       
       
    End Sub