SQLCm.CommandText = "select name from keibayosou order by 点数 desc" Dim value As String Cn.Open() value = SQLCm.ExecuteScalar Cn.Close() MsgBox(value)