Save CheckedListBox To Database

[Lacool]

Hi, I am trying to save checked items from a CheckedListBox to a table in a database, I am using the following code:

Dim conn As New OleDb.OleDbConnection("Provider=sqloledb;" & _
"Data Source=KIM-LAPTOP;" & _
"Initial Catalog=ScrcCardBase;" & _
"User Id=sa;" & _
"Password=sa")
Dim oList As Object
Dim strsql As String = ""
Dim cmd1 As OleDb.OleDbCommand
Try
conn.Open()
For Each oList In Me.clbSites.CheckedItems
strsql = "INSERT INTO tblSiteAllocation (Site) VALUES ('" & oList & "')"
cmd1 = New OleDb.OleDbCommand(strsql, conn)
cmd1.ExecuteNonQuery()
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
conn.Close()
End Try

I am getting the following error message:
Operator '&' is not defined for string "INSERT INTO tblSiteAllocation(S" and type 'DataRowView'.

Any ideas as to what may be causing this.

Or does anyone know of an easier way to save checkedlistbox data to a database.
Thanks