[VB.NET]Query

[Mircodj]

raga visto che ho postato già due topic senza che nessuno mi rispondesse vi pregherei di darmi almeno questo semplice aiuto.
come faccio a fare una query facendo prendere come valore della query un nome inserito nella TextBox2.Text io ho fatto cosi ma non funziona

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salva.Click
        'apertura connessione'
        m_cnConnessioneADO.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        m_cnConnessioneADO.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Preventivi.mdb")
        'Controllo TextBox Trova'
        Dim sql As String
        sql = "select * from Nome where Nome=Trova.Text"
        Nome.Text = ""
        Data.Text = ""
        Indirizzo.Text = ""
        Car1.Text = ""
        Car2.Text = ""
        Car3.Text = ""
        Car4.Text = ""
        Car5.Text = ""
        Car6.Text = ""
        Car7.Text = ""
        Car8.Text = ""
        Car9.Text = ""
        Car10.Text = ""
        m_rsCiampi.Open(sql, m_cnConnessioneADO, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        'a questo punto ho il record'
        If m_rsCiampi.RecordCount > 0 Then
            Nome.Text = m_rsCiampi.Fields("Nome").Value
            Data.Text = m_rsCiampi.Fields("Data").Value
            Indirizzo.Text = m_rsCiampi.Fields("Indirizzo").Value
            Car1.Text = m_rsCiampi.Fields("Caratteristica1").Value
            Car2.Text = m_rsCiampi.Fields("Caratteristica2").Value
            Car3.Text = m_rsCiampi.Fields("Caratteristica3").Value
            Car4.Text = m_rsCiampi.Fields("Caratteristica4").Value
            Car5.Text = m_rsCiampi.Fields("Caratteristica5").Value
            Car6.Text = m_rsCiampi.Fields("Caratteristica6").Value
            Car7.Text = m_rsCiampi.Fields("Caratteristica7").Value
            Car8.Text = m_rsCiampi.Fields("Caratteristica8").Value
            Car9.Text = m_rsCiampi.Fields("Caratteristica9").Value
            Car10.Text = m_rsCiampi.Fields("Caratteristica10").Value
            Pre1.Text = m_rsCiampi.Fields("Prezzo1").Value
            Pre2.Text = m_rsCiampi.Fields("Prezzo2").Value
            Pre3.Text = m_rsCiampi.Fields("Prezzo3").Value
            Pre4.Text = m_rsCiampi.Fields("Prezzo4").Value
            Pre5.Text = m_rsCiampi.Fields("Prezzo5").Value
            Pre6.Text = m_rsCiampi.Fields("Prezzo6").Value
            Pre7.Text = m_rsCiampi.Fields("Prezzo7").Value
            Pre8.Text = m_rsCiampi.Fields("Prezzo8").Value
            Pre9.Text = m_rsCiampi.Fields("Prezzo9").Value
            Pre10.Text = m_rsCiampi.Fields("Prezzo10").Value
        Else
            MsgBox("Mi dispiace nessun Cliente corrisponde con il Nome inserito")
        End If



    End Sub

solo che non va.
Perchè?
se è possibile date uno sguardo all'altro topic
Grazie

[oregon]

>>>sql = "select * from Nome where Nome=Trova.Text"

Trova.Text non la puoi inserire nella costante stringa ...

sql = "select * from Nome where Nome='" & Trova.Text & "'"

[Luke(BI)]

davvero non andava soloo per quello? ci sono altri problemi?

[Mircodj]

Funziona grazie
sei grande?
posso chiederti se sai come faccio a risolvere gli altri problemi che ho nel topic che ho postato stamattina
grazie di nuovo.
io non sono bravo come te
il titolo del topic è
copia di un testo da un form all'altro