ho verificato la Insert va a buon fine
codice:
 Try
            StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DbCarrara.accdb"
            ObjConnection = New OleDbConnection(StrConn)
            ObjConnection.Open()

            'RECUPERO L'Ultimo Id inserito
            '"SELECT TOP 1 * FROM Cliente ORDER BY IDcliente DESC"

            ObjCommand = New OleDbCommand("SELECT TOP 1 * FROM Cliente ORDER BY IDcliente DESC", ObjConnection)
            ID = ObjCommand.ExecuteScalar()
            ' ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
            If (CheckBox1.Checked = True) Then
                ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
                ObjCommand2.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand2.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 1
                RispUtente = ObjCommand2.ExecuteNonQuery()
            End If
            If (CheckBox2.Checked = True) Then
                ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
                ObjCommand2.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand2.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 2
                RispUtente = ObjCommand2.ExecuteNonQuery()
            End If
            If (CheckBox3.Checked = True) Then
                ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
                ObjCommand2.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand2.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 3
                RispUtente = ObjCommand2.ExecuteNonQuery()

            End If
            If (CheckBox4.Checked = True) Then
                ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
                ObjCommand2.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand2.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 4
                RispUtente = ObjCommand2.ExecuteNonQuery()
            End If
            If (CheckBox5.Checked = True) Then
                ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
                ObjCommand2.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand2.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 5
                RispUtente = ObjCommand2.ExecuteNonQuery()

            End If
            If (CheckBox6.Checked = True) Then
                ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
                ObjCommand2.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand2.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 6
                RispUtente = ObjCommand2.ExecuteNonQuery()
            End If
            If (CheckBox7.Checked = True) Then
                ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
                ObjCommand2.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand2.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 7
                RispUtente = ObjCommand2.ExecuteNonQuery()
            End If
            '  MsgBox(ID)
            If (CheckBox8.Checked = True) Then
                ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
                ObjCommand2.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand2.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 8
                RispUtente = ObjCommand2.ExecuteNonQuery()
            End If
            If (CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False And CheckBox7.Checked = False) Then
                MsgBox("Selezionare un Servizio")
            End If
            'MsgBox(ID)

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