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
codice:
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