Visual Basic - como grabar datos de un ComboBox a una BD, ADODB

Me gustaria saber como hago para grabar los datos seleccionados de un ComboBox , a una BD por medios de sentencias de SQL utilizando una Conexion ADODB... por favor.

yo lo hago asi

if combo1.text<>"" then
adodc1.recordset.addnew
adodc1.recordset.fields("campo1).value=combo1.text
adodc1.recordset.update
end if

espero sea esto lo que buscas