求助vb.net新增问题

请问一下代码有什么问题吗　　编译没有错误　　但新增的时候光标停留到了　comm.ExecuteNonQuery() 未处理的＂system.data.sqlclient.sqlexception＂类型的异常出现在system.data.dll中
以下是新增按钮下的代码
        Dim sqlcon1 As SqlConnection = New SqlConnection("Server = TASLYSA-DATA;database=taslysatest;uid=sa;pwd=810222;")
        Dim sqlstr As String = "insert into test(经销商号,经销商姓名,查询密码,备注) values(@bh,@xm,@pwd,@memo)"
        Dim comm As SqlCommand = New SqlCommand(sqlstr, sqlcon1)
        comm.Parameters.Add("bh", SqlDbType.VarChar).Value() = TextBox1.Text
        comm.Parameters.Add("xm", SqlDbType.NVarChar).Value() = TextBox2.Text
        comm.Parameters.Add("pwd", SqlDbType.NVarChar).Value() = TextBox3.Text
        comm.Parameters.Add("memo", SqlDbType.NVarChar).Value() = TextBox4.Text
        sqlcon1.Open()
        comm.ExecuteNonQuery()
        sqlcon1.Close()

是不是没有引用
在最上面加上imports system.data试下

引用了　　语法没有任何错误　编译通过了　　
imports system.data
imports system.data.sqlclient

Dim sql As String = "INSERT INTO test1 (aa,bb,cc) VALUES (@aa,@bb,@cc); "

        Dim conn As New SqlConnection("Server = TASLYSA-DATA;database=taslysatest;uid=sa;pwd=810222;")
        Dim cmd As New SqlCommand(sql, conn)
        cmd.Parameters.Add("@aa", SqlDbType.NVarChar)
        cmd.Parameters("@aa").Value = "1"
        cmd.Parameters.Add("@bb", SqlDbType.NVarChar)
        cmd.Parameters("@bb").Value = "2"
        cmd.Parameters.Add("@cc", SqlDbType.NVarChar)
        cmd.Parameters("@cc").Value = "3"
        '  Try
        conn.Open()
        cmd.ExecuteNonQuery()

你好，非常感谢您的回答　
新增的问题解决了　　紧接着又有新的问题　　　我的程序是这样　　　一个主窗体　　　点新增按钮弹出新增信息窗体　　保存完以后主窗体的datagrid没有及时更新　　不知道怎么解决　　求教