Dim cmd As NewSQLCommand cmd.Connec tionName = "User"
Dim nm As String = "贺辉"
cmd.Com mandText ="Se lect Count(*) From {Users} Where Name =
'" & nm &
"'" If cmd.Exe cuteScalar > 0 Then Messagebox.Show("已经存在同名用户","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If