将radiobutton值作为布尔数据类型插入MS Access数据库

Question

我正在尝试将表单中的值插入MS Access数据库。我收到单选按钮上“数据类型不匹配”的错误。我知道错误是单选按钮，因为如果我把它们拿出来，表单工作正常。我有3个单选按钮和一个布尔列，希望被检查的那个返回true而另一个返回false。

   Dim myquery As String = "insert into [dbo_tblCoachtheCoach] ([Coach],[CoachID],[Manager],[ManagerID],[Supv],[SupvID],[OneonOne],[FollowUp],[Other],[Date],[Time],[Rev_Prep],[Engage],[SelfDiscovery],[SMART_Goals],[Results],[Coach_Goal],[Notes]) values (@Coach,@CoachID,@Manager,@MangerID,@Supv,@SupvID,@OneonOne,@FollowUp,@Other,@Date,@Time,@RevPrep,@Engage,@SelfDiscovery,@SmartGoals,@Results,@Goals,@Notes)"



        Dim cmd As New OleDbCommand
        With cmd
            .CommandText = myquery
            .Connection = newScoreConn

            'inserting data into tblCoachtheCoach
            .Parameters.AddWithValue("@Coach", cmbCoach.SelectedItem)
            .Parameters.AddWithValue("@CoachID", txtCoach.Text)
            .Parameters.AddWithValue("@Manager", cmbManager.SelectedItem)
            .Parameters.AddWithValue("@MangerID", txtManager.Text)
            .Parameters.AddWithValue("@Supv", cmbSupv.SelectedItem)
            .Parameters.AddWithValue("@SupvID", txtSupv.Text)


            .Parameters.AddWithValue("@Date", DateTimePicker1.Text)
            .Parameters.AddWithValue("@Time", txtTime.Text)

            .Parameters.AddWithValue("@OneonOne", radioOne.Checked)
            .Parameters.AddWithValue("@FollowUp", radioFollow.Checked)
            .Parameters.AddWithValue("@Other", radioOther.Checked)

            .Parameters.AddWithValue("@RevPrep", cmbRevPrep.SelectedItem)
            .Parameters.AddWithValue("@Engage", cmbEngage.SelectedItem)
            .Parameters.AddWithValue("@SelfDiscovery", cmbSelfDiscovery.SelectedItem)
            .Parameters.AddWithValue("@SmartGoals", cmbSmartGoals.SelectedItem)
            .Parameters.AddWithValue("@Results", cmbResults.SelectedItem)

            .Parameters.AddWithValue("@Goals", txtSmartGoal.Text)
            .Parameters.AddWithValue("@Notes", txtNotes.Text)


            .ExecuteNonQuery()
        End With

    Catch ex As Exception
        MessageBox.Show(ex.Message)


    End Try
    newScoreConn.Close()


End Sub