Dim a As String
Dim sayi As Integer
a = InputBox(”Firma Adının birkaç harfini giriniz”)
sqlbaglanti.Open()
sqlkomut.CommandText = “SELECT COUNT(*) FROM firma WHERE firmaadi LIKE ‘%” + UCase(a) + “%’”
sqlkomut.ExecuteNonQuery()
veriler = sqlkomut.ExecuteReader(CommandBehavior.SingleResult)
Do While veriler.Read
sayi = veriler(0)
Loop
If sayi > 1 Then
MsgBox(”birden fazla”)
End If
sqlbaglanti.Close()