[VB.NET] Ricerca Dati in database Access

[Felice1405]

Salve,
premetto che non ho trovato nulla su google, utilizzo un database Access 2003 .mdb con Visual Studio 2008.
Il Database ha una tabella Chiamata "Persone" composta da : "ID" , "Nome" , "Cognome".
L'inserimento va a buon fine, ma non riesco a cercare un elemento cercandolo per ID.
Ho provato la sintassi "SELECT Nome FROM Persone WHERE ID = '1'".

Il codice per l'inserimento è questo:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objconn As OleDbConnection
        Dim stringaconn As String
        Dim stringasql As String
        Dim objcomm As OleDbCommand
        stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
        stringaconn = stringaconn & "c:\test\Persone.mdb"
        objconn = New OleDbConnection(stringaconn)
        objconn.Open()
        stringasql = "Insert into Persone(Nome,Cognome) values('"
        stringasql = stringasql & Me.TNome.Text & "'" & ","
        stringasql = stringasql & "'" & Me.TContenuto.Text & "'" & ")"
        objcomm = New OleDbCommand(stringasql, objconn)
        Dim risputente As Integer
        Try
            risputente = objcomm.ExecuteNonQuery()
            If risputente = 1 Then
                MsgBox("Inserimento effettuato con successo")
                objconn.Close()
                Me.TNome.Text = ""
                Me.TContenuto.Text = ""
                Me.TNome.Focus()
            End If
        Catch es As Exception
            MsgBox("Errore: il campo cognome e/o nome sono vuoti")
            objconn.Close()
        End Try

    End Sub 

mentre per la ricerca avevo modificato così :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objconn As OleDbConnection
        Dim stringaconn As String
        Dim stringasql As String
        Dim objcomm As OleDbCommand
        stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
        stringaconn = stringaconn & "c:\test\Persone.mdb"
        objconn = New OleDbConnection(stringaconn)
        objconn.Open()
        stringasql = "SELECT Nome FROM Persone WHERE ID = '1'"
        objcomm = New OleDbCommand(stringasql, objconn)
        Dim risputente As Integer
        Try
            risputente = objcomm.ExecuteNonQuery()
            If risputente = 1 Then
                MsgBox("Trovato")
                objconn.Close()
                TNome.Text= risputente
                 
            End If
        Catch es As Exception
            MsgBox("Errore: il campo ID è vuoto")
            objconn.Close()
        End Try

    End Sub 

Come potrei ricercare un dato dal ID e inserire L'ID non a mano ma con una TextBox?

PS= Non fate caso all'errore "ID non inserito" anche perchè è scritto sopra, sempre se la sintassi è giusta.