Insert Data Into SQLExpress

I'm trying to insert data into my local SQLExpress database by using on buttonclick from a asp.net page.   I run the page, hit submit and I check my database and there's no data entered.  Does the following code look correct or do I need to look at other things...

Thanks in advance!

 

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

If Not Page.IsPostBack Then



Dim mycommand As SqlCommand

Dim myconnection As New SqlConnection

Dim insertCmd As String

Dim guidResult As String = System.Guid.NewGuid().ToString()

Dim isAffected As Integer



 

myconnection = New SqlConnection()

myconnection.ConnectionString = "Data Source=.SQLEXPRESS;AttachDbFilename=|DataDirectory|ASPNETDB.MDF;Integrated Security=True;User Instance=True"

myconnection.Open()

insertCmd = "Insert Into [tbl_Messaging] ([UserName], [Admired], [message], [messageID], [datesent]) Values (@Username, @Admired, @message, @messageID, @dateSent)"

mycommand = New SqlCommand()

mycommand.CommandType = CommandType.Text

mycommand.CommandText = insertCmd

mycommand.Parameters.Add("@username", SqlDbType.VarChar).Value = Profile.Username

mycommand.Parameters.Add("@admired", SqlDbType.VarChar).Value = TextBox1.Text

mycommand.Parameters.Add("@message", SqlDbType.VarChar).Value = TextBox2.Text

mycommand.Parameters.Add("@messageid", SqlDbType.UniqueIdentifier).Value = guidResult

mycommand.Parameters.Add("@datesent", SqlDbType.SmallDateTime).Value = DateTime.Today.ToShortDateString

isAffected = mycommand.ExecuteNonQuery()

myconnection.Close()



End If

End Sub