cmd.Parameters.AddWithValue("@Ename", UserName)
创新互联是一家集网站建设,虎丘企业网站建设,虎丘品牌网站建设,网站定制,虎丘网站建设报价,网络营销,网络优化,虎丘网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
你没有指定参数的类型,改成这样:
cmd.Parameters.Add("@Ename", SqlDbType.VarChar, 20).Value = UserName
vb网络显示频繁怎么回事bi若使用数据流量，查看所在位置信号强度是否偏低，可尝试调整或移动到信号强度更高的位置；部分情况下可能由于信号环境较复杂未能切换到信号质量更好的基站，可以尝试开关手机飞行模式再试；
2、若使用WiFi，查看设备是否在所有WiFi环境下都有异常现象，若都有异常，建议删除网络或重启手机重连；不同运营商的网络若表现不同，基本可以判断是WiFi本身的异常；
3、如果所有网络环境、地区，手机网络异常问题都很严重，建议更换一下握持姿势；如果使用了含有金属或过厚的保护壳可能会影响信号接收能力，可摘除保护壳后尝试；
4、如单独是某个软件有此现象，可进入设置-更多设置-应用管理-相关软件-存储-清除数据缓存看下是否有改善。
...
'将Try...Catch放在Main中
Try
Begin()
Catch e As Exception
ProcessException(e)
End Try
'在Begin中开始你的程序，就像从Main开始执行程序一个道理
Sub Begin()
'
End Sub
'将ProcessException改成你的要处理所有异常的过程名
Sub ProcessException(e As Exception)
'
End Sub
...