Dim cmd As New SQLCommandcmd.ConnectionName = "jy_dbs"
cmd.CommandText = "Exec SY_Users_update '" & r("userid") & "', '" & r("description") & "', '" & r("pwd") & "'"
cmd.ExecuteReader()