cmd.ExecuteScalar 出错~ 帮忙解决方法

cmd.ExecuteScalar 出错~~ 帮忙
cmd.CommandText = "select count(*) from Useres where Name=='" & Me.UTextBox.Text & "'"
  con.Open()
  Dim i As Integer = cmd.ExecuteScalar

这里出错~~ 不知道什么原因，请高手帮忙~~ 错误提示是("="附件有错误~)~~~~~~

[解决办法]
==
=>
=
[解决办法]
sql使用=，不是==，那个是C#写法。
[解决办法]
cmd.CommandText = "select count(*) from Useres where Name=='" & Me.UTextBox.Text & "'"
红色的地方错误，用下面的
cmd.CommandText = "select count(*) from Useres where Name='" & Me.UTextBox.Text & "'"