Ciao a tutti,
ho un problema nel passare il valore nella condizione di Where di una select.

Premetto che nella tabella il campo Id è un Int
Passo col seguente codice un valore da un form ad un altro, e vorrei che questo valore fosse dato in pasto ad una Select per restituirmi il record corrispondente.

codice:
 Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Id_appoggio2 As Int32


        Id_appoggio2 = Form4.txtId_appoggio.Text
        Me.txtId.Text = Id_appoggio2


        Dim stringaconn As String
        Dim conn As SqlConnection
        stringaconn = "Data Source=localhost; Initial Catalog=Rubrica; Integrated Security=SSPI;"


        conn = New SqlConnection(stringaconn)
        conn.Open()

        Cmd = New SqlCommand("SELECT * FROM Persona WHERE Id=Id_appoggio2", conn)
        Da = New SqlDataAdapter(Cmd)
        Cb = New SqlCommandBuilder(Da)
        Ds = New DataSet

        Da.Fill(Ds, "Persona")
        bs = New BindingSource(Ds, "Persona")

        txtNome.Text = DirectCast(bs.Current, 
DataRowView).Item("Nome").ToString
        txtCognome.Text = DirectCast(bs.Current, 
DataRowView).Item("Cognome").ToString

    End Sub
Purtoppo non popola le textBox.
Come posso risolvere?
Grazie!