'单个值更简单
Dim cmd As New SQLCommandcmd.Ccmd.CommandText = "Select top 1 用户姓名 From {Users} Where [Name] = '" & UserName & "'"e.Form.Controls("UserName").Value = cmd.ExecuteScalar