dim sChamp1 as string dim sChamp2 as string sChamp1 = ComboBox1.SelectedItem.ToString() sChamp2 = ComboBox2.SelectedItem.ToString() SQL = "INSERT INTO agence(Champ1, Champ2)" SQL &= " VALUES ('" & sChamp1 & "', '" & sChamp2 & "')"
dim champ_dtpicker as string=DateTimePicker1.Value