请问为何我的数据插入代码总是没用

数据插入没用 ，连接与查询没有问题 代码为
   Dim user, pwd, em, qst, ans As String
        user = User.Text
        pwd = Pass.Text
        em = Email.Text
        qst = Question.Text
        ans = Answer.Text
        Dim cdt As DateTime
        cdt = Date.Now
        Dim str As String
        str = ConfigurationManager.ConnectionStrings("connection").ConnectionString
        Dim bconn As New SqlConnection(str)
        bconn.Open()
        Dim mycmd As New SqlCommand("SELECT u_id FROM [user] WHERE (u_username = '" & user & "')", bconn)
        Dim dr As SqlDataReader = mycmd.ExecuteReader()        Try
            If dr.HasRows = "True" Then
                '若存在 
                Label1.Text = "您输入的用户名已被使用！"
            Else '不存在，写入数据库                 Dim mycmd1 As New SqlCommand(str)
                mycmd1.Connection = bconn
                mycmd1.CommandText = "INSERT into [user]  (u_username,u_password,u_email,u_securityqst,u_securityans,u_createdate) VAULES ('" & user & "','" & pwd & "'," & em & "','" & qst & "','" & ans & ",'" & cdt & "')"
                Session("member") = user
            End If        Catch ex As Exception
            Label1.Text = "您的输入有问题，请确认后重新输入！"
        Finally
            If dr IsNot Nothing Then dr.Close()
            If bconn IsNot Nothing Then bconn.Close()
        End Try不知道是不是数据库在vs2005里打开的缘故，可不先打开就连接不上数据库，说是连接超时