ติดปัญหาเรื่อง การเชื่มต่อฐานข้อมูลใน Sql server ครับ

Imports System.Data
Imports System.Data.SqlClient

Partial Class AddTest
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim strConn As String
        Dim myConn As System.Data.SqlClient.SqlConnection
        strConn = "Server=localhost;Initial Catalog=com;Persist Security Info=True;User ID=sa;Password=0000"
        myConn = New System.Data.SqlClient.SqlConnection(strConn)


        Dim strcomm As New SqlCommand("INSERT INTO TBTest ( [ID], UserName, Password, FName, LName, Email, Address, TelMobie ,Tel)VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "',);", myConn)
        strcomm.ExecuteNonQuery()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""

    End Sub
End Class