<Microsoft.SqlServer.Server.SqlProcedure()> _ Public Shared Sub AddMedarbejder(ByVal Navn As String, ByVal GruppeLeder As Int16, ByVal Adresse As String, ByVal PostNummer As Integer, ByVal Telefon As Integer, ByVal Mobil As Integer, ByVal Cpr As String, ByVal AnsættelsesDato As String, ByVal Timer As Integer, ByVal by As String) Using conn As New SqlConnection("context connection=true") Dim cmd As New SqlCommand() cmd.Parameters.Add(New SqlParameter("@Navn", Navn)) cmd.Parameters.Add(New SqlParameter("@GruppeLeder", GruppeLeder)) cmd.Parameters.Add(New SqlParameter("@Adresse", Adresse.ToString())) cmd.Parameters.Add(New SqlParameter("@PostNummer", PostNummer)) cmd.Parameters.Add(New SqlParameter("@Telefon", Telefon)) cmd.Parameters.Add(New SqlParameter("@Mobil", Mobil)) cmd.Parameters.Add(New SqlParameter("@Cpr", Cpr.ToString())) cmd.Parameters.Add(New SqlParameter("@AnsættelsesDato", AnsættelsesDato.ToString())) cmd.Parameters.Add(New SqlParameter("@Timer", Timer)) cmd.Parameters.Add(New SqlParameter("@By", by.ToString())) cmd.CommandText = "INSERT INTO Medarbejderer VALUES('@Navn', @GruppeLeder, '@Adresse', @PostNummer, @Telefon, @Mobil, '@Cpr', '@AnsættelsesDato', @Timer, '@By')" cmd.Connection = conn conn.Open() SqlContext.Pipe.ExecuteAndSend(cmd) End Using End Sub