Fehler in der Insert Into Anweisung

Hall an Alle hier im Forum,

ich beschäftige mich erst seit kurzem mit VB und deshalt bitte ich Euch beim meinen vieleicht sehr einfachen Fragen um Nachsicht.

Ich habe folgenden Code um in die Tabelle Konten und dort in die Spalte "Kontoname" einen neuen Wert einzutragen. Es gibt noch einen weitere Spalte "KontoNr" die auch den Index hat, beginnend bei 1.

Aber hier erstmal der Code:

Option Explicit On
Imports System.Data.SqlServerCe

Public Class Form3

Private CnSt As String = "Data Source=Adressen.sdf"

Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Dim Cn As New SqlCeConnection(CnSt)
        Dim Cmd As SqlCeCommand = Cn.CreateCommand

        Dim anzahl As Integer



        Beep()

        Cmd.CommandType = CommandType.Text
        Cmd.CommandText = "insert into Konten (KontoName) values ('Lebensmittel')"
        'MessageBox.Show(Cmd.CommandText)



        Cn.Open()
        anzahl = Cmd.ExecuteNonQuery()
        If anzahl > 0 Then
            MessageBox.Show("Es wurde " & anzahl & " Datensatz eingefügt")
        End If

        Cn.Close()
        '***************************************************************************
       

    End Sub


End Class

Es kommt keine Fehlermeldung, aber ein neuer Wert wird auch nicht in die Spalte "KontoName" eingetragen.

Kann mir jemand sagen, was ich falsch mache?

Ich sage schon mal Danke, für eure Mühen eine Anfänger was diesem Bereich betrifft zu helfen.

Gruß Piti