В таблицах данных есть метод .Select, который возвращает массив строк в соответствии с указанными вами критериями. Примерно так:
Dim oRows() As DataRow
oRows = dtCountries.Select("CountryName = '" & userinput & "'")
If oRows.Count = 0 Then
' No rows found
Else
' At least one row found. Could be more than one
End If
Конечно, если userinput содержит символ ', это вызовет исключение (например, если вы запрашиваете базу данных). Вы должны экранировать символы '(для этого я использую функцию).