В мою базу данных вставляется «ложный» текст

У меня есть оператор вставки с несколькими столбцами DataGridViewComboBoxColumns. Когда я пытаюсь вставить значения этих DataGridViewComboBoxColumns в мою базу данных, в поля вставляется текст «False».

Почему это происходит?

Dim para As New SqlClient.SqlParameter
Dim dateValue As String = CStr(DateTimePicker1.Value)
Dim calendar = Microsoft.VisualBasic.Left(dateValue, 10)
para.ParameterName = "@company"
para.Value = company.Selected.ToString
para.ParameterName = "@division"
para.Value = division.Selected.ToString
para.ParameterName = "@date"
para.Value = DateTimePicker1.Value
para.ParameterName = "@supplier"
para.Value = supplier.Selected.ToString
para.ParameterName = "@material_group"
para.Value = materialGroup.Selected.ToString
para.ParameterName = "@cost"
para.Value = netprice.Selected.ToString
para.ParameterName = "@dsc"
para.Value = description.Selected.ToString
para.ParameterName = "@email"
para.Value = cmbEmail.SelectedValue
para.ParameterName = "@userID"
para.Value = id
para.ParameterName = "@Name"
para.Value = txtEmployee.Text
para.ParameterName = "@val"
para.Value = newName
para.ParameterName = "@quantity"
para.Value = quantity.Selected.ToString
para.ParameterName = "@wbs"
para.Value = wba.Selected.ToString
para.ParameterName = "@marketingCode"
para.Value = markCodes.Selected.ToString
para.ParameterName = "@hccNumber"
para.Value = hccNumber.Selected.ToString
para.ParameterName = "@currency"
para.Value = currency.Selected.ToString

Вставьте сведения:

Dim con As New SqlClient.SqlConnection
Dim myCommand As New SqlClient.SqlCommand
myCommand.Parameters.Add("@company", SqlDbType.NVarChar, 30).Value = company.Selected.ToString
myCommand.Parameters.Add("@division", SqlDbType.NVarChar, 30).Value = division.Selected.ToString
myCommand.Parameters.Add("@date", SqlDbType.NVarChar, 30).Value = DateTimePicker1.Value
myCommand.Parameters.Add("@supplier", SqlDbType.NVarChar, 30).Value = supplier.Selected.ToString
myCommand.Parameters.Add("@material_group", SqlDbType.NVarChar, 30).Value = materialGroup.Selected.ToString
myCommand.Parameters.Add("@cost", SqlDbType.NVarChar, 30).Value = netprice.Selected.ToString
myCommand.Parameters.Add("@dsc", SqlDbType.NVarChar, 30).Value = description.Selected.ToString
myCommand.Parameters.Add("@email", SqlDbType.NVarChar, 30).Value = cmbEmail.SelectedValue
myCommand.Parameters.Add("@userID", SqlDbType.NVarChar, 30).Value = id
myCommand.Parameters.Add("@Name", SqlDbType.NVarChar, 30).Value = newName
myCommand.Parameters.Add("@quantity", SqlDbType.NVarChar, 40).Value = quantity.Selected.ToString
myCommand.Parameters.Add("@wbs", SqlDbType.NVarChar, 40).Value = wba.Selected.ToString
myCommand.Parameters.Add("@marketingCode", SqlDbType.NVarChar, 40).Value = markCodes.Selected.ToString
myCommand.Parameters.Add("@hccNumer", SqlDbType.NVarChar, 40).Value = hccNumber.ToString
myCommand.Parameters.Add("@currency", SqlDbType.NVarChar, 40).Value = currency.Selected.ToString

Dim myAdapter As New SqlClient.SqlDataAdapter
Dim sql As String = "Insert into details (company, division, date, supplier, material_group, cost, dsc, email, userID, fullName, marketingCode, wbs, qty, currency) VALUES (@company, @division, @date, @supplier, @material_group, @cost, @dsc, @email, @userID, @Name, @marketingCode, @wbs, @quantity, @currency)"
myCommand.Connection = con
myCommand.CommandText = sql
myAdapter.InsertCommand = myCommand
myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
myCommand.Connection.Close()