Dim sitzung_schreiben As String = _
            "insert into tmpsitzung(Sitzung,mandant,periode) " & _
    "values (100,88,@periode)"
            cmd.Parameters.Add(New SqlParameter("@periode", "periode"))
            Try
                Dim cmd4 As DbCommand = New SqlCommand(sitzung_schreiben, _
                  SqlCon)
                Insert_start = cmd4.ExecuteNonQuery()

...kein Wunder da? ich nur noch so wenige Haare habe ...