[VB6] Problema ComboBox e INSERT

[jakula]

Ciao di Nuovo

Sto provando ora ad inserire degli articoli da una combobox nel campo ordinecliente della tabella ordini

  
 

Private Sub Combo1_Click() 

Dim sql As String 

Rs2.Open "select * From ordini" 
Set DataGrid1.DataSource = Rs2 

sql = " insert into ordini (ordinecliente) VALUES &combo1.text& " 
Cn.Execute sql 

Rs2.update 

MsgBox ("Inserito!") 

end sub

ma mi dà sintassi errata

se inserisco un record già pieno tipo

sql = " insert into ordini (ordinecliente) VALUES ('Meloni')"

va tutto bene, ma io vorrei che inserisse ciò che legge dal combobox in maniera dinamica

tipo facendo click su un degli articoli che scorre tipo:

Vino
Olio
Latte

etc

Qualcuno mi sa indicare la sintassi giusta?

Grz

[web@web]

sql = "insert into ordini (ordinecliente) VALUES ('" & combo1.text & "')"

[jakula]

Funziona

Grazie !