关于添加用户
想实现添加用户和密码的功能 其中一段跟数据连接有关的代码如下，在添加的时候总是提示添加失败
Private Function AddUser() As Boolean
Dim flag As Boolean = True


Dim Name As String = Me.tbName.Text.Trim()
Dim Pwd As String = Me.tbPwd.Text.Trim()
Dim Pur As String = Me.GetCheck()

Dim sql As String = "INSERT INTO [USER] VALUES('" + Name.Trim() + "','" + Pwd.Trim() + "','" + Pur.Trim() + "')"
Dim SqlCmd As New SqlClient.SqlCommand(sql, depot.SqlCon)
Try

depot.SqlCon.Open()
SqlCmd.ExecuteNonQuery()
Catch ex As Exception
depot.WriteErr(ex)
flag = False
Finally
depot.SqlCon.Close()
End Try


Return flag
End Function

[解决办法]
看看错误信息
定义个sqlconnection再执行。
[解决办法]

没错误怎么会flag=false
....
[解决办法]
有可能多次调用，造成主键冲突。