Problem bei übergabe von daten an sql datenban

[liberado]

hi Leute.

Hoffe mir kann hier jemand helfen, ich hab ein Problem.

Die asp seite funktioniert bis jetzt einwandfrei nur wenn ich daten per formular auf die sql datenbank übergeben will klappt es nicht

hier mal der code

<%@ Page Language="vb" %>

<%@ import Namespace="System.Data" %>

<%@ import Namespace="System.Data.SqlClient" %>

<script runat="server">


    Dim MyConnection As SqlConnection


    Sub Page_Load(Sender As Object, E As EventArgs)


        MyConnection = New SqlConnection("server=(local);database=intranet;UID=telefon_aend;PWD=telefon_aend")


        If Not (IsPostBack)

            BindGrid()

        End If

    End Sub




    Sub AddKunden_Click(Sender As Object, E As EventArgs)


        Dim DS As DataSet

        Dim MyCommand As SqlCommand


        If kdintnr.Value = "" Or kdNachname.Value = "" Or kdVorname.Value = "" Or kdTelefon.Value = ""


          Message.InnerHtml = "FEHLER: Für Nachname, Vorname und Telefon sind keine Nullwerte zulässig"

          Message.Style("Farbe") = "red"

          BindGrid()

        End If


        Dim InsertCmd As String = "insert into tblKundendaten (kdintnr,kdAnrede, kdTitel, kdVorname, kdNachname, kdAdresszusatz, kdGeburtstag, kdstrasse, kdPLZ, kdOrt, kdLand, kdTelefon, kdTelefax, kdmobil, kdEmail, kdDatum) values (@intnr, @Anrede, @Titel, @Vorname, @Nachname, @Adresszusatz, @Geburtstag, @Strasse, @PLZ, @Ort, @Land, @Telefon, @Telefax, @Mobil, @Email, @Datum)"


        MyCommand = New SqlCommand(InsertCmd, MyConnection)


        MyCommand.Parameters.Add(New SqlParameter("@INTNR", SqlDbType.NVarChar, 10))

        MyCommand.Parameters("@INTNR").Value = kdintnr.Value


        MyCommand.Parameters.Add(New SqlParameter("@Anrede", SqlDbType.NVarChar, 10))

        MyCommand.Parameters("@Anrede").Value = kdAnrede.Value


        MyCommand.Parameters.Add(New SqlParameter("@Titel", SqlDbType.NVarChar, 20))

        MyCommand.Parameters("@Titel").Value = kdTitel.Value


        MyCommand.Parameters.Add(New SqlParameter("@NACHNAME", SqlDbType.NVarChar, 15))

        MyCommand.Parameters("@NACHNAME").Value = KdNachname.Value


        MyCommand.Parameters.Add(New SqlParameter("@VORNAME", SqlDbType.NVarChar, 15))

        MyCommand.Parameters("@VORNAME").Value = kdVorname.Value


        MyCommand.Parameters.Add(New SqlParameter("@Adresszusatz", SqlDbType.NVarChar, 15))

        MyCommand.Parameters("@Adresszusatz").Value = kdAdresszusatz.Value


        MyCommand.Parameters.Add(New SqlParameter("@Geburtstag", SqlDbType.NVarChar, 11))

        MyCommand.Parameters("@Geburtstag").Value = kdGeburtstag.Value


        MyCommand.Parameters.Add(New SqlParameter("@Strasse", SqlDbType.NVarChar, 20))

        MyCommand.Parameters("@Strasse").Value = kdStrasse.Value


        MyCommand.Parameters.Add(New SqlParameter("@PLZ", SqlDbType.NVarChar, 10))

        MyCommand.Parameters("@PLZ").Value = kdPLZ.Value


        MyCommand.Parameters.Add(New SqlParameter("@Ort", SqlDbType.NVarChar, 20))

        MyCommand.Parameters("@Ort").Value = kdOrt.Value


        MyCommand.Parameters.Add(New SqlParameter("@Land", SqlDbType.NVarChar, 20))

        MyCommand.Parameters("@Land").Value = kdLand.Value


        MyCommand.Parameters.Add(New SqlParameter("@Telefon", SqlDbType.NChar, 20))

        MyCommand.Parameters("@Telefon").Value = kdTelefon.Value


        MyCommand.Parameters.Add(New SqlParameter("@Telefax", SqlDbType.NVarChar, 20))

        MyCommand.Parameters("@Telefax").Value = kdTelefax.Value


        MyCommand.Parameters.Add(New SqlParameter("@Mobil", SqlDbType.NVarChar, 20))

        MyCommand.Parameters("@Mobil").Value = kdMobil.Value


        MyCommand.Parameters.Add(New SqlParameter("@Email", SqlDbType.NVarChar, 25))

        MyCommand.Parameters("@Email").Value = kdEmail.Value


        MyCommand.Parameters.Add(New SqlParameter("@Datum", SqlDbType.NVarChar, 15))

        MyCommand.Parameters("@Datum").Value = kdDatum.Value


        MyCommand.Connection.Open()


        Try

            MyCommand.ExecuteNonQuery()

            Message.InnerHtml = "<b>Datensatz hinzugefügt</b><br>" & InsertCmd.ToString()


        Catch Exp As SQLException

            If Exp.Number = 2627

                Message.InnerHtml = "FEHLER: Es ist bereits ein Datensatz mit demselben Primärschlüssel vorhanden"

            Else

                Message.InnerHtml = "FEHLER: Datensatz konnte nicht hinzugefügt werden. Stellen Sie bitte sicher, dass die Felder richtig ausgefüllt sind"

            End If

            Message.Style("Farbe") = "red"


        End Try


        MyCommand.Connection.Close()


        BindGrid()

    End Sub


    Sub BindGrid()


        Dim MyCommand As SqlDataAdapter = new SqlDataAdapter("select * from tblKundendaten", MyConnection)


        Dim DS As DataSet = new DataSet()

        MyCommand.Fill(DS, "tblKundendaten")


        MyDataGrid.DataSource=DS.Tables("tblKundendaten").DefaultView

        MyDataGrid.DataBind()

    End Sub


</script>

danke!

Gruß Liberado