Have you looked at the contents of the Insert Statement to see why it is giving you an insert error? It'd be very helpful, for me to give you a good answer, if you provided the exact error messages and some sample code...
Here is a suggestion on something to try so you can understand why your statement is crashing:
MsgBox(ComboBox1.SelectedItem.GetType.ToString, vbOkOnly, "Test")
You'll see that you get a type like "ListItem" or something from ComboBox1.SelectedItem. That is because ComboBox1.SelectedItem returns an OBJECT, not a VALUE, and that OBJECT is determined by the Datasource of the ComboBox (in this case you have added an item manually with ComboBox.Items.Add, so it uses a default data type and adds it to the datasource).....
So here is some things you can use:
ComboBox1.SelectedText 'this should work
ComboBox1.SelectedValue 'this works when you have a datasource and a valuemember set
ComboBox1.Items(ComboBox1.SelectedItem).Text
Here is an example of how to check if something is selected, and get the value:
'Assume ComboBox1 is the name of your combobox control
Dim ComboVal as STring = ""
If ComboBox1.SelectedValue > -1 Then 'Something is selected
ComboVal = ComboBox1.SelectedText
Else
'By Default you can type text into a ComboBox, if there is
'text in the combo, and you haven't selected any, you can do
'something here
End If