Insert Av Value In A Sql-server Database

Hello:

I have a code that save information from a textbox to a access-database...And it work exactly the way I want....

Now I want to change the database to a sql-server-database....but I dont know what to change in the code I have...

The code for the access-database is:

<% @(a) Page Language="VB" %>
<% @(a) import Namespace="System.Data" %>
<% @(a) import Namespace="System.Data.Oledb" %>
<script runat="server">
sub submit(obj as object, e as eventargs)

Dim MinConnectionString as string = _
"Provider=Microsoft.Jet.Oledb.4.0;" & _
"Data Source=MinDatabas.mdb"

Dim strSQL As String = "INSERT INTO tabell1(namn) VALUES( @(a)Namn)"
Dim Conn As New OledbConnection(MinConnectionString)
Dim Command As New OledbCommand("",Conn)

Command.CommandText = strSQL

Dim Namn As New OledbParameter(" @(a)Namn", DbType.String)
Namn.Value = tbNamn.Text
Command.Parameters.Add(Namn)

Try
Conn.Open()
Command.ExecuteNonQuery()
Conn.Close()

response.redirect("startsida.aspx")
Catch Ex As Exception
lblMessage.text = "Ett fel inträffade"
End try

end sub

</script>

I have been trying to make this code working with a sql-server-database for a very long time now and I think it will be something like this:

<% @(a) Page Language="VB" %>
<% @(a) import Namespace="System.Data" %>
<% @(a) import Namespace="System.Data.sqlclient" %>
<script runat="server">

Sub Spara(ByVal obj As Object, ByVal e As EventArgs)

Dim ConnectionString As String = "Data Source=.SQLEXPRESS;AttachDbFilename=|DataDirectory|MinData
bas.mdf;Integrated Security=True;User Instance=True"

Dim strSQL As String = ("INSERT INTO Tabell1 ( Fornamn ) VALUES ( @(a)Namn )")

Dim Conn As New SqlConnection(ConnectionString)
Dim Command As New SqlCommand("", Conn)

Command.CommandText = strSQL

Dim Namn As New SqlParameter(" @(a)Namn", DbType.String)
Namn.Value = TextBox1.Text
Command.Parameters.Add(Namn)


Try
Conn.Open()
Command.ExecuteNonQuery()
Conn.Close()

Response.Redirect("startsida.aspx")
Catch Ex As Exception
TextBox1.Text = "Ett fel inträffade!"
End Try

End Sub

</script>


But I allways get a message: "Cannot insert the value NULL into column 'id'"

 

Do you know what's wrong?