scusa ma il mio db è fatto in accessora ti posto il codice
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 Ciampi 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 = ""
        Pre1.Text = ""
        Pre2.Text = ""
        Pre3.Text = ""
        Pre4.Text = ""
        Pre5.Text = ""
        Pre6.Text = ""
        Pre7.Text = ""
        Pre8.Text = ""
        Pre9.Text = ""
        Pre10.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
            MessageBox.Show("Mi dispiace! nessun Cliente corrisponde al  Nome inserito")

        End If

        m_rsCiampi.Close()
        m_cnConnessioneADO.Close()
    End Sub
questa è la funzione cerca
adesso utilizzando tutti quei txtbox che ho vorrei permettere all'utente di salvare i dati nel db
come posso fare