راهنمایی در مورد کانکش و insert کردن دیتا در asp.net 2.0 با vb

[pnet]

من یک کانکشن و فرم وورد اطلاعات به شرح کد زیر درست کردم ولی کار نمی کند می خواستم کانکشن آن به webconfig منتقل کنم ولی error داد لطفا راهنمایی کنید
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.HttpApplicationState
Partial Class about

Inherits System.Web.UI.Page
Dim objConnection As New SqlConnection("Data Source=Server=127.0.0.1;Database=Database;uid=Data base ;pwd=parviz123;")

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim objCommand As New SqlCommand
objCommand.Connection = objConnection
objCommand.CommandText = "Insert Into Contacts(ID" & _
",commentid,Name,Email,Subject,Notes,Datecomment)" & _
"Values(@ID,@commentid,@Name,@Email,@Subject,@Notes ,@Datecomment)"
'
Dim objMaxId As New SqlCommand
objMaxId.Connection = objConnection
objMaxId.CommandText = "Select Max(id) From Contacts"
objConnection.Open()
Dim MaxId As Object = objMaxId.ExecuteScalar()
If MaxId Is DBNull.Value Then
MaxId = 0
End If
objConnection.Close()
'
objCommand.Parameters.AddWithValue("@id", MaxId + 1)
objCommand.Parameters.AddWithValue("@commentid", TextBox1.Text)
objCommand.Parameters.AddWithValue("@name", TextBox2.Text)
objCommand.Parameters.AddWithValue("@Email", TextBox3.Text)
objCommand.Parameters.AddWithValue("@Subject", TextBox4.Text)
objCommand.Parameters.AddWithValue("@Notes", TextBox5.Text)
objCommand.Parameters.AddWithValue("@Datecomment", TextBox6.Text)
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""



End Sub


End Class

[twelve]

کد ها رو بین تگ کد قرار بدین تا خوانا تر بشه ، من اینکارو برای شما کردم


Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.HttpApplicationState
Partial Class about

Inherits System.Web.UI.Page
Dim objConnection As New SqlConnection("Data Source=Server=127.0.0.1;Database=Database;uid=Data base ;pwd=parviz123;")

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim objCommand As New SqlCommand
objCommand.Connection = objConnection
objCommand.CommandText = "Insert Into Contacts(ID" & _
",commentid,Name,Email,Subject,Notes,Datecomme nt)" & _
"Values(@ID,@commentid,@Name,@Email,@Subject,@Note s,@Datecomment)"
'
Dim objMaxId As New SqlCommand
objMaxId.Connection = objConnection
objMaxId.CommandText = "Select Max(id) From Contacts"
objConnection.Open()
Dim MaxId As Object = objMaxId.ExecuteScalar()
If MaxId Is DBNull.Value Then
MaxId = 0
End If
objConnection.Close()
'
objCommand.Parameters.AddWithValue("@id", MaxId + 1)
objCommand.Parameters.AddWithValue("@commentid", TextBox1.Text)
objCommand.Parameters.AddWithValue("@name", TextBox2.Text)
objCommand.Parameters.AddWithValue("@Email", TextBox3.Text)
objCommand.Parameters.AddWithValue("@Subject", TextBox4.Text)
objCommand.Parameters.AddWithValue("@Notes", TextBox5.Text)
objCommand.Parameters.AddWithValue("@Datecomment", TextBox6.Text)
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""



End Sub


End Class


من تو این کد که زیاد هم اصولی و حرفه ای نوشته نشده این مورد رو اشتباه دیدم :


"Values(@ID,@commentid,@Name,@Email,@Subject,@Note s,@Datecomment)"




من یک کانکشن و فرم وورد اطلاعات به شرح کد زیر درست کردم ولی کار نمی کند می خواستم کانکشن آن به webconfig منتقل کنم ولی error داد لطفا راهنمایی کنید

این error رو فقط شما مشاهده کردید بچه های این انجمن که ندیدند پس وقتی با Error مواجه میشید باید متن error رو هم اینجا درج کنید.

ضمن اینکه بهتره به قسمت اعلانات هم نگاهی بیندازید.

[H_T_O_A]

با سلام و تبریک جهت ورود شما به سایت
لطفا این ارور رو بزارین. تا وقتی ندونی ارور چیه که نمی تونی چیزی بگی...

[H_T_O_A]

فاصله بین Note s مسلما غلطه.

twelve عزیز به نظرت امکان داره اشکال غیر از اون موردی که ذکر کردید در آدرس کانکشن استرنگ هم وجود داشته باشه