SqlAdapter - SqlCommand (insert into) via Server Expl. i VS

hej hej hej

Då var det dags för en Newbie historia igen...

Roddar runt i SQLCommand / SqlAdapter just nu.

Håller på att bygga en gästbok som upplärningsprojekt. Så nu är jag ute efter att
köra en "INSERT INTO" variant via SQLCommand / SqlAdapter + - det som nu kan
behövas.

*************************************************************************************

Miljö:
SqlServer2003, V.Studio 2003

*************************************************************************************

Formuläret innehåller ett textfält och en sparaknapp (för att skapa en ny gästbok).

*************************************************************************************

Sen har jag via "Server Explorer" fått fram följande autogenererade kod:

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "tblGuestbook", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("AddBy", "AddBy"), New System.Data.Common.DataColumnMapping("AddDate", "AddDate"), New System.Data.Common.DataColumnMapping("LangID", "LangID"), New System.Data.Common.DataColumnMapping("Guestbook", "Guestbook"), New System.Data.Common.DataColumnMapping("Active", "Active")})})
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO tblGuestbook (AddBy, AddDate, Guestbook, Active, LangID) VALUES (@Add" & _
        "By, @AddDate, @Guestbook, @Active,)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@AddBy", System.Data.SqlDbType.Int, 4, "AddBy"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@AddDate", System.Data.SqlDbType.DateTime, 8, "AddDate"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@LangID", System.Data.SqlDbType.Int, 4, "LangID"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Guestbook", System.Data.SqlDbType.VarChar, 255, "Guestbook"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Active", System.Data.SqlDbType.TinyInt, 1, "Active"))
        '
        'SqlConnection1 instansieras
        '
        Me.SqlConnection1.ConnectionString = "workstation id=""id"";packet size=4096;user id=whatever;data source=anywhere;persist sec" & _
        "urity info=True;initial catalog=EnKatalog;password=femetta51!?"
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT AddBy, AddDate, LangID, Guestbook, Active FROM tblGuestbook"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1

    End Sub

    Protected WithEvents txtGbook As System.Web.UI.WebControls.TextBox
    Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents Published As System.Web.UI.WebControls.CheckBox
    Protected WithEvents SaveBtn As System.Web.UI.WebControls.Button

Sen har jag följande kod under knapphändelsen:

    Private Sub SaveBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveBtn.Click

	'Testing testing te...   :) 

    	'(Långt senare...)efter X antal misslyckade försök och googlande etc...   :l 

	'Insikt: Jag har uppenbarligen inte en susning...   :r 

	'Lösningar:
	'1. Gör en gammal hederlig vanlig variant...  "LOOSERTRAP"   :bla 
	'2. Fråga de obotliga snillena på wF   :h 

	'Slutsats: Gå på lösningsalternativ 2   :i 

	' Tack för din tid & hjälp     :bire 

    End Sub