Prova così, questa è una routine che fa quello che dici te.
Spero ti aiuti
Codice PHP:
Protected Sub checkn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles checkn.Click
Dim conn As Data.OleDb.OleDbConnection
Dim cmd As Data.OleDb.OleDbCommand
Dim myNum As Integer = CType(num.Text, Integer)
conn = New Data.OleDb.OleDbConnection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=True"
conn.Open()
cmd = New Data.OleDb.OleDbCommand
cmd.Connection = conn
cmd.CommandText = "SELECT Numero FROM Tabella WHERE Numero = " & myNum
If cmd.ExecuteScalar = myNum Then
res.Text = "Numero già presente in archivio"
Else
res.Text = "Numero non trovato"
End If
cmd.Dispose()
conn.Dispose()
End Sub